(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    431360,       8495]
NotebookOptionsPosition[    415775,       8179]
NotebookOutlinePosition[    416449,       8205]
CellTagsIndexPosition[    416368,       8200]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"76066cee-3fbd-49b4-ba23-f098fcfc78d9"],
 " | Modified in: ",
 Cell[" 2.1.1", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"c132279e-dda0-44d5-bbe7-c32b3c6328db"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"533d68f9-ace0-4e56-99bc-2f844b75c9ee"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"fa1d063b-59d1-497f-bd6f-b6794eecefa0"]
}], "History",
 CellChangeTimes->{{3.767431515868867*^9, 3.76743151683018*^9}, {
  3.7741719863257217`*^9, 3.7741719865347958`*^9}, {3.780118839921982*^9, 
  3.780118839972336*^9}, {3.788201787481944*^9, 3.788201789040537*^9}},
 CellID->1247902091,ExpressionUUID->"075ee22c-9cab-41fc-9178-5c78c3d07668"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"995ccc7c-1e8b-4aef-9546-df61fba7a3b4"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"3a01e3ee-337d-4461-9f00-224634dcbfe4"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.743836668583045*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"e7ca5fe0-98f7-4af7-9063-c8f13f752da4"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{{3.685094582506324*^9, 3.68509458362572*^9}, 
   3.685095249148727*^9, {3.6850987312213097`*^9, 3.685098732663312*^9}, {
   3.6851013387551394`*^9, 3.6851013396360207`*^9}, 3.74383666894241*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"2cb818f7-f88f-40d3-80e2-ae816e391fc2"],

Cell["MaXrd/ref/ImportCrystalData", "Categorization",
 CellChangeTimes->{{3.717942325334921*^9, 3.717942328691655*^9}, 
   3.743836669231743*^9},
 CellLabel->"URI",ExpressionUUID->"8ad360ca-23b2-4621-a776-72d3211e6e21"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"ff744614-5046-4abb-9ddc-5608950869bc"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"c29f1eb8-4252-4f8a-910c-3a455b7352ae"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"581eb59b-ab2a-4962-8268-125ef23413f2"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"6c095dfc-f2b2-415d-bddf-460e7cf96c01"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"fd2a15e0-fd16-4ed9-a09a-02b841cd8554"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"c0d14b7a-a5ce-4dae-960c-e2290cf8d329"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"ce24500f-b5a7-4f6d-890d-808dfe74f57e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"63363ce8-0063-441c-8249-be651b92fd00"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"94af7237-224b-4051-b443-d01047d347e1"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"4e921f31-45c6-4ff1-a875-1ca079f595e5"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"53eda391-a71d-4300-adb7-9545fdce4ded"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"f31422f0-cf5e-44e8-ba72-ec1e8ca65dc1"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"90446701-1547-4fe1-8da4-47595ff47e78"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"e07a56bc-222f-40a1-8817-b5c81d9a40f2"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"c2e58b6a-b208-4d1e-9bc1-2194794e443d"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"b611a689-bbb8-4377-8ec6-96e1144c4225"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"78e77e83-8ed4-49b2-a7a5-d90532afc36d"]
}, Closed]],

Cell[CellGroupData[{

Cell["ImportCrystalData", "ObjectName",
 CellChangeTimes->{{3.717942333195881*^9, 3.717942337307479*^9}},
 CellID->1224892054,ExpressionUUID->"dfe05296-6871-461e-a1d7-bfdb61fc336a"],

Cell[TextData[{
 Cell["      ", "ModInfo",ExpressionUUID->
  "97e01f70-7acc-48ce-827f-3e5b3cbcb4fd"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ImportCrystalData",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ImportCrystalData"], "[", 
   StyleBox["cif", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "8b59e63c-d80c-481e-a578-b043ff0a66ad"],
 "\[LineSeparator]extracts information from a ",
 Cell[BoxData[
  StyleBox["cif", "TI"]], "InlineFormula",ExpressionUUID->
  "7f8376ad-e598-4aad-81d1-13d804a8cc7c"],
 " file and stores the data in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"50434b2b-fc2f-44ac-94bf-369728cad4b6"],
 " under the ",
 Cell[BoxData[
  StyleBox["cif", "TI"]], "InlineFormula",ExpressionUUID->
  "c3120800-9912-4837-a5d0-ac395c33aa6d"],
 " file name.\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "83432d84-286b-495c-aad3-e7389162a2bd"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ImportCrystalData",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ImportCrystalData"], "[", 
   RowBox[{
    StyleBox["cif", "TI"], ",", 
    StyleBox["label", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "7d43f14f-0f23-43a0-99f8-e487d01a13c9"],
 "\[LineSeparator]extracts information from a ",
 Cell[BoxData[
  StyleBox["cif", "TI"]], "InlineFormula",ExpressionUUID->
  "8d11f203-65be-4dbb-bfc5-e035f45067ac"],
 " file and stores the data in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"b0bdf7a5-3a04-4361-b9aa-0d93c88e6f8b"],
 " under ",
 Cell[BoxData[
  StyleBox["label", "TI"]], "InlineFormula",ExpressionUUID->
  "28d0651d-8f23-4a4f-a2bd-8fbbec24e3fe"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "913ee734-6a69-43f9-8c71-9be92a505f6f"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ImportCrystalData",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ImportCrystalData"], "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      StyleBox["label", "TI"], ",", 
      StyleBox["formula", "TI"], ",", 
      StyleBox["Z", "TI"], ",", 
      StyleBox["sg", "TI"], ",", 
      StyleBox["\[Lambda]", "TR"]}], "}"}], ",", 
    StyleBox["lattice", "TI"], ",", 
    StyleBox["atomData", "TI"], ",", 
    StyleBox["notes", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "09ded229-bd2e-42b1-99bc-b75b3c4cd74f"],
 "\[LineSeparator]stores the data in ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"eb295790-08a9-4aaa-9553-45498a811956"],
 " under ",
 Cell[BoxData[
  StyleBox["label", "TI"]], "InlineFormula",ExpressionUUID->
  "407cf224-c665-4b03-b00b-5187104a1ea9"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "c79fa4f1-82e4-4d17-a327-07219617d95c"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["ImportCrystalData",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/ImportCrystalData"], "[", "]"}]], 
  "InlineFormula",ExpressionUUID->"1dd846e4-3eb3-4449-8201-fda0a6d5c060"],
 "\[LineSeparator]opens a dialogue for entering the data."
}], "Usage",
 CellChangeTimes->{{3.684216461222177*^9, 3.684216469928173*^9}, {
   3.684476070177051*^9, 3.684476100861327*^9}, {3.685095720261076*^9, 
   3.6850957786338463`*^9}, 3.6865449208458557`*^9, {3.705379148906*^9, 
   3.705379196750338*^9}, {3.7149206431109457`*^9, 3.7149207605305758`*^9}, {
   3.71492092807474*^9, 3.714921044307226*^9}, {3.714921102331221*^9, 
   3.714921129108877*^9}, {3.717253619310627*^9, 3.717253622548119*^9}, {
   3.717942371040186*^9, 3.717942385333148*^9}, {3.718013521692668*^9, 
   3.7180135449348288`*^9}, {3.73014327178942*^9, 3.7301434077419167`*^9}, {
   3.730143518730887*^9, 3.7301435200640783`*^9}, {3.738979551643207*^9, 
   3.738979639018793*^9}, {3.738979797631783*^9, 3.7389798035490713`*^9}, {
   3.7407271522227373`*^9, 3.740727252878563*^9}, {3.744047240825688*^9, 
   3.744047257480329*^9}, {3.744047358401684*^9, 3.744047374229714*^9}, {
   3.744047452330365*^9, 3.7440474523313847`*^9}, {3.7441165699467707`*^9, 
   3.744116569947392*^9}, {3.744117175772833*^9, 3.744117177728223*^9}, {
   3.744117355390451*^9, 3.74411735553127*^9}, {3.744169640173944*^9, 
   3.744169668865519*^9}, {3.744169810914393*^9, 3.7441698169010344`*^9}, {
   3.746436422705894*^9, 3.746436422707032*^9}, {3.760959970328205*^9, 
   3.760959991844219*^9}, {3.760960707774497*^9, 3.76096070908324*^9}},
 CellID->974978287,ExpressionUUID->"59133999-1b1c-4778-bdab-c66b83c200b3"],

Cell[TextData[{
 "If data is added manually, ",
 Cell[BoxData[
  StyleBox["notes", "TI"]], "InlineFormula",ExpressionUUID->
  "5565ed48-6964-4454-9db8-383085688b08"],
 " may be omitted. It can be either zero or any number of strings. Each \
element entry should should be an Association with the following keys: ",
 Cell[BoxData[
 "\"\<Element\>\""], "InlineFormula",ExpressionUUID->
  "eeb494a9-37f5-4516-b580-1192f60619b0"],
 ", ",
 Cell[BoxData[
 "\"\<FractionalCoordinates\>\""], "InlineFormula",ExpressionUUID->
  "e1571d0f-bf89-4552-aa5d-495e7af75c78"],
 ", ",
 Cell[BoxData[
 "\"\<DisplacementParameters\>\""], "InlineFormula",ExpressionUUID->
  "67bbd957-83ca-4c04-99c8-aa9ede87ed8d"],
 ", (ADPs) ",
 Cell[BoxData[
 "\"\<Type\>\""], "InlineFormula",ExpressionUUID->
  "04082536-502e-4433-ba7f-f406a2ebf4c2"],
 ", and notes if wanted."
}], "Notes",
 CellChangeTimes->{{3.714921138360313*^9, 3.71492115027253*^9}, {
   3.7149212058808126`*^9, 3.714921273745524*^9}, {3.738979673924097*^9, 
   3.738979785425087*^9}, 3.760961489056683*^9},
 CellID->1642976032,ExpressionUUID->"308feaf8-1515-419a-a342-9f1fea63a631"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["ImportCrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ImportCrystalData"]], "InlineFormula",
  ExpressionUUID->"047d6b01-c2e9-4c69-9391-e9702e0dd994"],
 " will overwrite the data file containing the crystal data. The default file \
is seen from the default setting of ",
 Cell[BoxData[
 "\"\<DataFile\>\""], "InlineFormula",ExpressionUUID->
  "83f50206-19fc-4a74-bf1b-bf5134b024c2"],
 ". "
}], "Notes",
 CellChangeTimes->{{3.684480886590541*^9, 3.6844809646274853`*^9}, {
  3.714921056636525*^9, 3.714921068815851*^9}, {3.7149211812171583`*^9, 
  3.714921196663271*^9}, {3.7179423931438837`*^9, 3.7179423931439734`*^9}},
 CellID->1067943069,ExpressionUUID->"8e4f28c0-1c6c-4dc6-aae4-12fb2d9cb2fb"],

Cell["Options include:", "Notes",
 CellChangeTimes->{{3.684481138320962*^9, 3.684481141422838*^9}},
 CellID->1429547519,ExpressionUUID->"f87c533f-8e15-40a2-843a-a8a07203413d"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "e08a31d4-4f25-4c6a-aa22-243de27dd30a"], "\"\<DataFile\>\"", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
      "$MaXrdPath", ",", "\"\<UserData\>\"", ",", "\"\<CrystalData.m\>\""}], 
      "}"}], "]"}], Cell[
    "path to data file", "TableText",ExpressionUUID->
     "8b815346-e748-4c4c-9fea-a240b2c7ab2d"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "3e85d4e4-4c5b-4ea9-8f1f-efc31b04ca17"], "\"\<ExtractSubdata\>\"", "1", 
    Cell[TextData[{
     "part to extract in ",
     StyleBox["cif", "InlineCode"],
     " files containing multiple structures"
    }], "TableText",ExpressionUUID->"eb318803-edae-49d5-a773-1a96d07b24af"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "45bbd627-5e07-419a-924a-c0f303a012d5"], "\"\<Notes\>\"", 
    RowBox[{"<|", "|>"}], Cell[
    "notes or comments to the data", "TableText",ExpressionUUID->
     "31f8bce7-1df9-478f-b215-481f4e3a7d8f"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "79d89b92-6045-4d02-9b15-cd30fadc4384"], "\"\<OverwriteWarning\>\"", 
    ButtonBox["True",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/True"], Cell[
    "whether to prompt user with warning dialogue", "TableText",
     ExpressionUUID->"dc559a2f-65c9-4ff4-8a2f-928a0468682c"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "f5bcaf99-1304-4c22-95a8-57914f6a9ef3"], "\"\<RoundAnglesThreshold\>\"", 
    "0.001", Cell[
    "angles within this threshold will be rounded to integers", "TableText",
     ExpressionUUID->"26338dcf-1787-4fae-83d8-6a1bf2ef3a9e"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "e6adc788-ac73-4f28-88a4-606948595620"], "\"\<Units\>\"", 
    ButtonBox["True",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/True"], Cell[TextData[{
     "whether to store numbers as a ",
     ButtonBox["Quantity",
      BaseStyle->"Link",
      ButtonData->"paclet:ref/Quantity"]
    }], "TableText",ExpressionUUID->"afb44816-0212-476e-abab-bee950dcf0e5"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.684481159536109*^9, 3.6844813016956787`*^9}, {
   3.68448143877426*^9, 3.684481491402328*^9}, {3.684481524636856*^9, 
   3.684481528344303*^9}, {3.6865399832589006`*^9, 3.6865399836154537`*^9}, {
   3.717255442578459*^9, 3.717255443009111*^9}, {3.717399745608971*^9, 
   3.717399755745092*^9}, 3.71795193792373*^9, {3.718016372850778*^9, 
   3.718016389298695*^9}, {3.718016421809133*^9, 3.7180164242194147`*^9}, {
   3.730142895415955*^9, 3.730142896850689*^9}, 3.743865420295013*^9, {
   3.7801187830150423`*^9, 3.780118808095565*^9}, {3.78791614825317*^9, 
   3.787916149857956*^9}},
 CellID->960033616,ExpressionUUID->"8cee8c32-5224-4645-a2a7-0e83a23eb99c"],

Cell[TextData[{
 "If the function fails to find any space group information, a message \
appears prompting the user to enter that information manually. If the user \
cancels (or enters an empty string), the first space group (",
 Cell[BoxData[
  FormBox["P1", TraditionalForm]], "InlineMath",ExpressionUUID->
  "19f1cd63-0f10-47e9-932c-d11a9090fe02"],
 ") will be used."
}], "Notes",
 CellChangeTimes->{{3.686540518876698*^9, 3.6865406430060177`*^9}, {
   3.686545324867722*^9, 3.686545332179759*^9}, {3.706501163348894*^9, 
   3.706501164291561*^9}, 3.7172539228940163`*^9},
 CellID->828841396,ExpressionUUID->"3b32e41d-6733-4204-9c19-6bbd56c6e9e4"],

Cell[TextData[{
 "If the ",
 StyleBox[".cif", "InlineCode"],
 " file does not contain information concerning the atomic displacement \
parameter type (",
 StyleBox[ButtonBox["_atom_site_adp_type",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.iucr.org/__data/iucr/cifdic_html/1/cif_core.dic/Iatom_\
site_adp_type.html"], None}], "InlineCode"],
 " in ",
 StyleBox["coreCIF",
  FontSlant->"Italic"],
 " dictionary), displacement parameters will be set to zero and the type to \
",
 Cell[BoxData["\<\"Uiso\"\>"], "InlineFormula",ExpressionUUID->
  "6b3e2567-a7d1-4bb9-933f-7b887152a760"],
 ". The following table gives and overview of the type (left column) and the \
content of the ",
 Cell[BoxData["\<\"DisplacementParameters\"\>"], "InlineFormula",
  ExpressionUUID->"2815a372-2563-4fab-b490-e10faffe4233"],
 " entry (right column):"
}], "Notes",
 CellChangeTimes->{{3.686638868098195*^9, 3.686638984858334*^9}, {
  3.68664482286051*^9, 3.686644837129861*^9}, {3.686645320761572*^9, 
  3.686645374226509*^9}, {3.71801359900871*^9, 3.718013599096592*^9}},
 CellID->1991033282,ExpressionUUID->"1d87d0b7-97f3-4dbe-9b60-072405ba0a96"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "78c6c98d-03c1-4a95-86f7-deda4fed3e8f"], "Uani", Cell[TextData[{
     Cell[BoxData[
      FormBox[
       SubscriptBox["U", "11"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"bf06087b-79d2-40a5-a766-a06009802cb1"],
     ", ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["U", "22"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"d2f673c0-8dbd-4ec3-81ca-045eb6324b98"],
     ", ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["U", "33"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"cc6d44d4-00b5-4d58-aa79-519f583beee7"],
     ", ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["U", "12"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"6abd8630-52c5-4400-89d7-26963d72a223"],
     ", ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["U", "13"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"0f0c2fca-60d5-4ed3-9c8e-f3a941aef9a7"],
     " and ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["U", "23"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"25a6b9e7-16e8-4890-ade8-0331c5df5ea0"]
    }], "TableText",ExpressionUUID->"1691d137-c5a5-4dd4-a6ed-0848d6772ef5"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "65729616-8c3c-4392-89d0-b05ebf258831"], "Uiso", Cell[TextData[{
     Cell[BoxData[
      FormBox[
       SubscriptBox["U", "iso"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"f82e2c9f-baf2-44de-b29c-0a98c81691a2"],
     " (or ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["U", "eq"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"39a5379a-a2ce-49a7-9dbf-0b8b2853b956"],
     ")"
    }], "TableText",ExpressionUUID->"57750605-cd89-4726-a810-a35130a13521"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "cc2005cf-658c-4eb8-84ee-bf2a6b74655e"], "Bani", Cell[TextData[{
     Cell[BoxData[
      FormBox[
       SubscriptBox["B", "11"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"57dce162-b42d-445a-9dca-c5877b569800"],
     ", ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["B", "22"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"8403a1be-340b-46d9-98d6-c6b1976b056b"],
     ", ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["B", "33"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"f4a42cc6-b415-4753-9b52-721a0b6ffad0"],
     ", ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["B", "12"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"34367cb8-7b56-482b-b4ea-1e799d545f97"],
     ", ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["B", "13"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"30203b00-e3c1-4d4c-a1eb-e37a597e7b8d"],
     " and ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["B", "23"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"33f11426-077d-4de3-908e-54caeacebe87"]
    }], "TableText",ExpressionUUID->"f5dfbd73-739c-467e-8faf-9961ade468ff"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "128755e2-34f9-448e-ae41-a6b9d0ea5b47"], "Biso", Cell[TextData[{
     Cell[BoxData[
      FormBox[
       SubscriptBox["B", "iso"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"884c0f7d-0837-4471-96ce-0297a5f67fe5"],
     " (or ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["B", "eq"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"0d5f82ed-c9c3-41ac-8cee-35df0404e25d"],
     ")"
    }], "TableText",ExpressionUUID->"312818e5-0c71-4846-9c8c-9e55818f53da"]}
  }]], "2ColumnTableMod",
 CellChangeTimes->{{3.686644862249765*^9, 3.68664491237013*^9}, {
  3.6866449737528276`*^9, 3.686645008399742*^9}, {3.6866450606448298`*^9, 
  3.6866451838665333`*^9}, {3.686645392550559*^9, 3.686645396863063*^9}},
 CellID->1567931395,ExpressionUUID->"c2f87add-bdb1-4439-a4d7-7937af600540"],

Cell[TextData[{
 "Space groups will be stored as formatted symbols unless it corresponds to \
an alternative setting, in which case the full Hermann\[Dash]Mauguin symbol \
will be used (see ",
 Cell[BoxData[
  ButtonBox["ToStandardSetting",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ToStandardSetting"]], "InlineFormula",
  ExpressionUUID->"93791ff5-5cba-45bc-9bbb-0b40273b0d6f"],
 ")."
}], "Notes",
 CellChangeTimes->{{3.6865452194273233`*^9, 3.6865453112125473`*^9}, {
  3.738640199133765*^9, 3.738640211481352*^9}},
 CellID->40081505,ExpressionUUID->"d8ed93ec-7963-4216-8c46-c196f8c67bdd"],

Cell[TextData[{
 "Certain non-crucial data elements will not be stored. For example, if all \
occupation factors are one or all displacement parameters are zero, those \
keys will be deleted from the ",
 Cell[BoxData["\<\"AtomData\"\>"], "InlineFormula",ExpressionUUID->
  "cf8a1b5f-3b3c-45c4-a5d6-b9d8018da3b7"],
 " \[OpenCurlyDoubleQuote]section\[CloseCurlyDoubleQuote]."
}], "Notes",
 CellChangeTimes->{{3.735031655288808*^9, 3.7350317620150843`*^9}},
 CellID->1371443997,ExpressionUUID->"c8074a93-4865-4ee6-8aac-3eca75147a82"],

Cell[TextData[{
 "The following data items are searched for in the ",
 StyleBox[".cif", "InlineCode"],
 " files:"
}], "Notes",
 CellChangeTimes->{{3.738638704097295*^9, 3.7386387178554773`*^9}},
 CellID->692607812,ExpressionUUID->"6db918ef-8357-4b57-863f-ca8aaf5dacf9"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "ec2f7cb5-96cc-4323-99c8-c7f4de4dc1bf"], Cell[
    "lattice parameters: cell lengths", "TableText",ExpressionUUID->
     "c5792d43-5d46-4ae0-8aef-524138a64b77"], 
    RowBox[{
     RowBox[{"_cell", "_length", "_a"}], "\[LineSeparator]", 
     RowBox[{"_cell", "_length", "_b"}], "\[LineSeparator]", 
     RowBox[{"_cell", "_length", "_c"}]}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "e254f0b4-8f34-40a5-8b6c-1eb8cce92b9b"], Cell[
    "lattice parameters: angles", "TableText",ExpressionUUID->
     "c6a44a98-87b8-470f-8775-cd129be436e3"], 
    RowBox[{
     RowBox[{"_cell", "_angle", "_alpha"}], "\[LineSeparator]", 
     RowBox[{"_cell", "_angle", "_beta"}], "\[LineSeparator]", 
     RowBox[{"_cell", "_angle", "_gamma"}]}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "29bb8b4d-81ac-415b-868c-4fa4059ccca3"], Cell[
    "atom data: fractional coordinates", "TableText",ExpressionUUID->
     "32c14110-5fc4-4932-96e1-b9962ad0e8ee"], 
    RowBox[{
     RowBox[{"_atom", "_site", "_fract", "_x"}], "\[LineSeparator]", 
     RowBox[{"_atom", "_site", "_fract", "_y"}], "\[LineSeparator]", 
     RowBox[{"_atom", "_site", "_fract", "_z"}]}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "455cd36b-2788-4341-a511-be676c29cd0e"], Cell[
    "atom data: occupation factor", "TableText",ExpressionUUID->
     "f389cab2-099b-498a-af60-7ba797c92636"], 
    RowBox[{"_atom", "_site", "_occupancy"}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "438a0ca2-ac17-4ee4-b761-6b4ff9c3947d"], Cell[
    "atom data: site symmetry multiplicity/order", "TableText",ExpressionUUID->
     "641cefcc-9d02-4608-901a-b4484eabd6ec"], 
    RowBox[{
     RowBox[{"_atom", "_site", "_site", "_symmetry", "_multiplicity"}], 
     "\[LineSeparator]", 
     RowBox[{"_atom", "_site", "_site", "_symmetry", "_order"}]}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "96cdb241-2692-43c8-9c93-26acebacc59a"], Cell[
    "atom data: ADPs (anisotropic)", "TableText",ExpressionUUID->
     "d9f79a2b-6978-4721-a316-5c074f6d222d"], 
    RowBox[{
     RowBox[{"_atom", "_site", "_aniso", "_U", "_", "11"}], 
     "\[LineSeparator]", 
     RowBox[{"_atom", "_site", "_aniso", "_U", "_", "22"}], 
     "\[LineSeparator]", 
     RowBox[{"_atom", "_site", "_aniso", "_U", "_", "33"}], 
     "\[LineSeparator]", 
     RowBox[{"_atom", "_site", "_aniso", "_U", "_", "12"}], 
     "\[LineSeparator]", 
     RowBox[{"_atom", "_site", "_aniso", "_U", "_", "13"}], 
     "\[LineSeparator]", 
     RowBox[{"_atom", "_site", "_aniso", "_U", "_", "23"}]}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "7df75204-a313-442d-a9d6-b6f023fd5cd3"], Cell[TextData[Cell[BoxData[
    Cell["atom data: ADPs (isotropic)", "TableText",ExpressionUUID->
      "7002f4a6-7614-4347-9a23-e1b90066e58d"]],
     CellChangeTimes->{{3.738640367785364*^9, 3.7386404742776937`*^9}, {
      3.7386414111888514`*^9, 3.738641428160199*^9}, {3.7386415063998737`*^9, 
      3.738641561205352*^9}, {3.738641628798366*^9, 3.738641650467142*^9}, {
      3.738643363906645*^9, 3.7386434080327997`*^9}, {3.7386434384413567`*^9, 
      3.738643463212641*^9}, {3.7386435111031923`*^9, 3.738643539980686*^9}},
     ExpressionUUID->"56ae58e3-48bc-44ee-a8f6-36a876adbc14"]], "TableText",
     ExpressionUUID->"74df1ddb-fb10-4cfb-a5ce-5794d399e7e2"], 
    RowBox[{"_atom", "_site", "_U", "_iso", "_or", "_equiv"}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "aba4f287-9957-4dac-b5d3-678025f8843a"], Cell[
    "atom data: ADP type", "TableText",ExpressionUUID->
     "9fe446e3-231a-4d81-a3b3-b26b80100eb8"], 
    RowBox[{"_atom", "_site", "_adp", "_type"}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "c170e915-f770-4f21-8990-d643224be6c2"], Cell[
    "radiation wavelength", "TableText",ExpressionUUID->
     "be5b22b1-ed9b-4b0b-8a2f-9e6aba59e7f1"], 
    RowBox[{"_diffrn", "_radiation", "_wavelength"}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "d05fbc84-b9f7-4c1d-b337-ccad2246b2d8"], Cell[TextData[{
     "formula units (",
     Cell[BoxData[
      FormBox["Z", TraditionalForm]], "InlineMath",ExpressionUUID->
      "9e430be0-0f7e-47a9-bbbb-ce721d219fe0"],
     ")"
    }], "TableText",ExpressionUUID->"30e33878-bde4-4cc8-b9f0-77d98ca8f43a"], 
    RowBox[{"_cell", "_formula", "_units", "_Z"}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "883a3a95-d7c9-4ea3-99e9-cb045e7630f4"], Cell[
    "chemical formula", "TableText",ExpressionUUID->
     "1d2f8472-9478-4ede-91c0-fba4fd8b2463"], 
    RowBox[{
     RowBox[{"_chemical", "_formula", "_iupac"}], "\[LineSeparator]", 
     RowBox[{"_chemical", "_formula", "_structural"}], "\[LineSeparator]", 
     RowBox[{"_chemical", "_formula", "_sum"}]}]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "a9160a90-609c-48be-9b0f-de21c2943a88"], Cell[
    "space group", "TableText",ExpressionUUID->
     "0802e811-51eb-49e5-bafc-36013267e26c"], 
    RowBox[{
     RowBox[{"_space", "_group", "_name", "_Hall"}], "\[LineSeparator]", 
     RowBox[{
      RowBox[{"_space", "_group", "_name", "_H"}], "-", "M"}], 
     "\[LineSeparator]", 
     RowBox[{"_space", "_group", "_IT", "_number"}], "\[LineSeparator]", 
     RowBox[{"_symmetry", "_space", "_group", "_name", "_Hall"}], 
     "\[LineSeparator]", 
     RowBox[{
      RowBox[{"_symmetry", "_space", "_group", "_name", "_H"}], "-", "M"}], 
     "\[LineSeparator]", 
     RowBox[{"_symmetry", "_Int", "_Tables", "_number"}]}]}
  }]], "2ColumnTableMod",
 CellChangeTimes->{{3.738640367785364*^9, 3.7386404742776937`*^9}, {
   3.7386414111888514`*^9, 3.738641428160199*^9}, {3.7386415063998737`*^9, 
   3.738641561205352*^9}, {3.738641628798366*^9, 3.738641650467142*^9}, {
   3.738643363906645*^9, 3.7386434080327997`*^9}, {3.7386434384413567`*^9, 
   3.738643463212641*^9}, {3.7386435111031923`*^9, 3.738643585473813*^9}, {
   3.738643634356701*^9, 3.738643668356463*^9}, {3.738644265351179*^9, 
   3.738644293842461*^9}, {3.7386443548352823`*^9, 3.738644397207955*^9}, {
   3.738644581530469*^9, 3.738644584530241*^9}, 3.7386448077484503`*^9},
 CellID->1722440943,ExpressionUUID->"73148cff-c9e8-494c-9d27-0f0c077ff672"],

Cell[TextData[{
 "The function will extract the space group from the following ",
 ButtonBox["CIF labels",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.iucr.org/__data/iucr/cifdic_html/1/cif_core.dic/index.\
html"], None}],
 " (in prioritised order):\[LineSeparator]\t",
 StyleBox[ButtonBox["_space_group_name_Hall",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.iucr.org/__data/iucr/cifdic_html/1/cif_core.dic/Ispace_\
group_name_Hall.html"], None}], "InlineCode"],
 "\[LineSeparator] \t",
 StyleBox[ButtonBox["_space_group_name_H-M_alt",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.iucr.org/__data/iucr/cifdic_html/1/cif_core.dic/Ispace_\
group_name_H-M_alt.html"], None}], "InlineCode"],
 "\[LineSeparator]\t",
 StyleBox[ButtonBox["_space_group_IT_number",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.iucr.org/__data/iucr/cifdic_html/1/cif_core.dic/Ispace_\
group_IT_number.html"], None}], "InlineCode"],
 "\[LineSeparator]\t",
 StyleBox[ButtonBox["_symmetry_space_group_name_Hall",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.iucr.org/__data/iucr/cifdic_html/1/cif_core.dic/\
Isymmetry_space_group_name_Hall.html"], None}], "InlineCode"],
 "\[LineSeparator]\t",
 StyleBox[ButtonBox["_symmetry_space_group_name_H-M",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.iucr.org/__data/iucr/cifdic_html/1/cif_core.dic/\
Isymmetry_space_group_name_H-M.html"], None}], "InlineCode"],
 "\[LineSeparator]\t",
 StyleBox[ButtonBox["_symmetry_Int_Tables_number",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.iucr.org/__data/iucr/cifdic_html/1/cif_core.dic/\
Isymmetry_Int_Tables_number.html"], None}], "InlineCode"]
}], "Notes",
 CellChangeTimes->{{3.718004646156816*^9, 3.718004662766227*^9}, {
  3.71800473485406*^9, 3.718004756708221*^9}, {3.7180047885882587`*^9, 
  3.718004890657159*^9}, {3.718004963908618*^9, 3.7180049885110826`*^9}, {
  3.7180057870383797`*^9, 3.7180058012509117`*^9}, {3.718013614146618*^9, 
  3.718013617553361*^9}, {3.738644435552041*^9, 3.7386445172468157`*^9}, {
  3.738644670658675*^9, 3.7386446895083313`*^9}, {3.738644745482798*^9, 
  3.738644745497349*^9}, {3.738644867775485*^9, 3.73864486779315*^9}, {
  3.7386449115678997`*^9, 3.738645024816972*^9}, {3.738648583685727*^9, 
  3.738648583836483*^9}, {3.738648619742228*^9, 3.738648635646394*^9}, {
  3.7386487026707706`*^9, 3.738648785697257*^9}, {3.738979888913643*^9, 
  3.7389798889911013`*^9}, {3.738979926059311*^9, 3.738979991517091*^9}, {
  3.7389800317044983`*^9, 3.738980070986525*^9}},
 CellID->2062471477,ExpressionUUID->"dab3dd8b-19c3-493f-aae8-cb52be652ab6"],

Cell[TextData[{
 "If data is found on one of the labels, it will be run through ",
 Cell[BoxData[
  ButtonBox["InputCheck",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/InputCheck"]], "InlineFormula",
  ExpressionUUID->"baf3d7b5-e33a-4f15-b775-5b6cd73423ff"],
 " with the ",
 Cell[BoxData["\<\"InterpretSpaceGroup\"\>"], "InlineFormula",ExpressionUUID->
  "d34076e4-dd63-4715-8b41-f0ece38bbdff"],
 " label."
}], "Notes",
 CellChangeTimes->{{3.718004646156816*^9, 3.718004662766227*^9}, {
  3.71800473485406*^9, 3.718004756708221*^9}, {3.7180047885882587`*^9, 
  3.718004890657159*^9}, {3.718004963908618*^9, 3.7180049885110826`*^9}, {
  3.7180057870383797`*^9, 3.7180058012509117`*^9}, {3.718013614146618*^9, 
  3.718013617553361*^9}, {3.738644435552041*^9, 3.7386445172468157`*^9}, {
  3.738644670658675*^9, 3.7386446895083313`*^9}, {3.738644745482798*^9, 
  3.738644745497349*^9}, {3.738644867775485*^9, 3.73864486779315*^9}, {
  3.7386449115678997`*^9, 3.738645024816972*^9}, {3.738648583685727*^9, 
  3.738648583836483*^9}, {3.738648619742228*^9, 3.738648622694668*^9}, {
  3.7386486757404013`*^9, 3.73864867584241*^9}, {3.738648792478787*^9, 
  3.738648797840189*^9}},
 CellID->1137892019,ExpressionUUID->"dab3dd8b-19c3-493f-aae8-cb52be652ab6"],

Cell[TextData[{
 "The function will extract the chemical formula from the following CIF \
labels (in prioritised order):\[LineSeparator]\t",
 StyleBox[ButtonBox["_chemical_formula_iupac",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.iucr.org/__data/iucr/cifdic_html/1/cif_core.dic/\
Ichemical_formula_iupac.html"], None}], "InlineCode"],
 "\[LineSeparator]\t",
 StyleBox[ButtonBox["_chemical_formula_structural",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.iucr.org/__data/iucr/cifdic_html/1/cif_core.dic/\
Ichemical_formula_structural.html"], None}], "InlineCode"],
 "\[LineSeparator]\t",
 StyleBox[ButtonBox["_chemical_formula_sum",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.iucr.org/__data/iucr/cifdic_html/1/cif_core.dic/\
Ichemical_formula_sum.html"], None}], "InlineCode"],
 StyleBox["\[LineSeparator]", "InlineCode"],
 "If none of them are found, the user is prompted with a window to enter the \
formula manually. Also, formulas containing commas or question marks will be \
ignored."
}], "Notes",
 CellChangeTimes->{{3.718004646156816*^9, 3.718004662766227*^9}, {
  3.71800473485406*^9, 3.718004756708221*^9}, {3.7180047885882587`*^9, 
  3.718004890657159*^9}, {3.718004963908618*^9, 3.7180049885110826`*^9}, {
  3.7180057870383797`*^9, 3.7180058012509117`*^9}, {3.718013614146618*^9, 
  3.718013617553361*^9}},
 CellID->769093597,ExpressionUUID->"0556368c-b72a-4463-9b54-be9c8c941ce8"],

Cell[TextData[{
 "To remove entries from $CrystalData, one can use ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["KeyDropFrom",
    BaseStyle->"Link",
    ButtonData->"ref/KeyDropFrom"], "[", 
   RowBox[{
    ButtonBox["$CrystalData",
     BaseStyle->"Link",
     ButtonData->"paclet:MaXrd/ref/$CrystalData"], ",", 
    StyleBox["crystal", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "5140b8b3-e166-4d70-a323-786325199b0e"],
 "."
}], "Notes",
 CellChangeTimes->{{3.762697840093156*^9, 3.762697894377294*^9}},
 CellID->1711199123,ExpressionUUID->"995206c2-f897-44eb-a82e-95232137533e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"760f9802-ab7f-4cb8-a986-0b9d1468870e"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"9934c29f-a50c-447e-8ee1-26840516844e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"f1e47be0-bd60-444e-97e2-c7df275d89fa"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"ff514593-81f8-45d0-9dbc-81e4afdc1089"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"bf083414-5454-4525-9177-d8031babb038"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"00c1be25-5068-4045-98b1-b3e3355eaf5e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"1a2dbadc-138b-4b45-9240-dc7369854e0b"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"b2669d6c-a105-4394-950c-28238fcbbf2c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["StructureFactor",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactor"]], "InlineFormula",
  ExpressionUUID->"c8d1cb72-1f78-4cdd-bd83-8c87dc4eb735"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["UnitCellTransformation",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/UnitCellTransformation"]], "InlineFormula",
  ExpressionUUID->"bdc16a3d-3021-4006-a8f8-210a82aa1d0f"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ExpandCrystal",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ExpandCrystal"]], "InlineFormula",
  ExpressionUUID->"a5eb2f40-d094-45c2-880f-6ceaab051d41"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["CrystalPlot",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/CrystalPlot"]], "InlineFormula",
  ExpressionUUID->"17e39b67-9e25-4c65-aa74-03003b33b715"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ToStandardSetting",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ToStandardSetting"]], "InlineFormula",
  ExpressionUUID->"e5b342f6-65f6-4518-b833-79e6007a4a6a"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetSymmetryData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetSymmetryData"]], "InlineFormula",
  ExpressionUUID->"f06aff44-46c6-4bcb-a5c1-4f1783c7ec04"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetLatticeParameters",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetLatticeParameters"]], "InlineFormula",
  ExpressionUUID->"f950a32b-b808-491b-a16f-e68ac211f34d"]
}], "SeeAlso",
 CellChangeTimes->{{3.684485013089251*^9, 3.684485066846487*^9}, {
  3.705379333412044*^9, 3.7053793378595543`*^9}, {3.71795179375883*^9, 
  3.71795179375895*^9}, {3.730142932857119*^9, 3.730142959342984*^9}, {
  3.737968504293976*^9, 3.737968504294125*^9}, {3.737968551296619*^9, 
  3.73796855129675*^9}, {3.762752976810787*^9, 3.7627529775334063`*^9}, {
  3.7737250760438223`*^9, 3.773725081872342*^9}},
 CellID->929782353,ExpressionUUID->"53faa64b-0760-4bcf-8854-88f11d30d4b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"021339ee-ef5c-464a-96e4-45a15c142fb8"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"61a5af04-9062-477e-a023-749313ca7624"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"a625cf4a-7d89-41cc-b6b1-5ecc26bf8b0e"],

Cell[TextData[{
 "Example ",
 StyleBox[".cif", "InlineCode"],
 " files:"
}], "ExampleText",
 CellChangeTimes->{{3.6844816547732058`*^9, 3.684481677605173*^9}},
 CellID->287342914,ExpressionUUID->"77229714-b754-4e96-b855-d2a46c6acc0e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"demoCIFs", "=", 
   RowBox[{"FileNames", "[", 
    RowBox[{"\"\<*.cif\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
        "$MaXrdPath", ",", "\"\<ExampleFiles\>\"", ",", "\"\<CIF\>\""}], 
        "}"}], "]"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6844815631399517`*^9, 3.6844815864420958`*^9}, {
   3.684481623942554*^9, 3.684481637020485*^9}, 3.7143849141246653`*^9, 
   3.717399832031749*^9, {3.7180131651087637`*^9, 3.718013199690572*^9}, 
   3.743865420450658*^9},
 CellLabel->"In[1]:=",
 CellID->1305886649,ExpressionUUID->"fd4488de-6598-45e9-a4a8-68aa25a50722"],

Cell["A random sample file:", "ExampleText",
 CellChangeTimes->{{3.684481927362996*^9, 3.684481979575576*^9}, 
   3.684482041481691*^9, {3.7143848918706627`*^9, 3.714384899293055*^9}},
 CellID->26896797,ExpressionUUID->"faaf5517-d440-48db-be9e-ae73a6e7aa6b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"randomfile", "=", 
   RowBox[{"RandomChoice", "@", "demoCIFs"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.684481825723938*^9, 3.684481911419113*^9}, {
   3.714383694110691*^9, 3.714383785475237*^9}, {3.7143843226409817`*^9, 
   3.714384324999096*^9}, 3.714384542622614*^9, {3.7143848793305817`*^9, 
   3.714384920338928*^9}},
 CellLabel->"In[2]:=",
 CellID->840223987,ExpressionUUID->"66af59f3-72da-4588-b0f4-9ec830368b69"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImportCrystalData", "[", 
  RowBox[{"randomfile", ",", "\"\<TestInput\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.714384929053381*^9, 3.7143849412777042`*^9}, 
   3.717942470738717*^9},
 CellLabel->"In[3]:=",
 CellID->1049504644,ExpressionUUID->"fdea3f7c-12ab-4423-b680-474126771d7a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"ChemicalFormula\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(13\\)]\\)\\!\\(\\*SubscriptBox[\\(H\\), \
\\(22\\)]\\)Fe\\!\\(\\*SubscriptBox[\\(N\\), \
\\(6\\)]\\)\\!\\(\\*SubscriptBox[\\(S\\), \\(3\\)]\\)\"\>"}], ",", 
   RowBox[{"\<\"FormulaUnits\"\>", "\[Rule]", "6"}], ",", 
   RowBox[{"\<\"SpaceGroup\"\>", 
    "\[Rule]", "\<\"R\\!\\(\\*OverscriptBox[\\(3\\), \\(_\\)]\\)c\"\>"}], ",", 
   RowBox[{"\<\"LatticeParameters\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"a\"\>", "\[Rule]", 
       TemplateBox[{
        "16.3249`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"b\"\>", "\[Rule]", 
       TemplateBox[{
        "16.3249`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"c\"\>", "\[Rule]", 
       TemplateBox[{
        "12.4163`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"\[Alpha]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Beta]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Gamma]\"\>", "\[Rule]", 
       TemplateBox[{
        "120",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}]}], "\[RightAssociation]"}]}], ",", 
   RowBox[{"\<\"Wavelength\"\>", "\[Rule]", 
    TemplateBox[{
     "0.69804`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
      "\"Angstroms\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"AtomData\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[LeftSkeleton]", "8", "\[RightSkeleton]"}], "}"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.7143849416873302`*^9, 3.714384969186384*^9}, 
   3.716820317128972*^9, {3.718013208607888*^9, 3.718013242858262*^9}, 
   3.718013350554508*^9, 3.730143000271113*^9, 3.7301430975998497`*^9, 
   3.730144437130724*^9},
 CellLabel->"Out[3]=",
 CellID->1637712316,ExpressionUUID->"1f7c4465-9d3f-450d-b9ec-816dcbb046f4"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"a86de21a-e765-4fb6-b77b-28217a824958"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "d82aa59e-ed01-4168-a463-289c3bf6aa4d"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"58ae8d16-dc65-4262-a54c-dfdee094847a"],

Cell["\[OpenCurlyDoubleQuote]Manual\[CloseCurlyDoubleQuote] addition of \
crystal:", "ExampleText",
 CellChangeTimes->{{3.7168189874826736`*^9, 3.7168189939058647`*^9}, {
  3.7609600117697067`*^9, 3.760960014351295*^9}},
 CellID->164884109,ExpressionUUID->"df37d88c-fa65-4470-8d3b-aeb38ec82b40"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImportCrystalData", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "\"\<Quartz\>\"", ",", "\"\<SiO2\>\"", ",", 
     "\"\<\!\(\*SubscriptBox[\(P3\), \(1\)]\)21\>\""}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
    "4.914", ",", "4.914", ",", "5.406", ",", "90", ",", "90", ",", "120"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"<|", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\"\<Element\>\"", "\[Rule]", "\"\<Si\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<FractionalCoordinates\>\"", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.4699", ",", "0", ",", 
          RowBox[{"1", "/", "3"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"\"\<DisplacementParameters\>\"", "\[Rule]", "0"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<Type\>\"", "\[Rule]", "\"\<Biso\>\""}]}], 
      "\[IndentingNewLine]", "|>"}], ",", "\[IndentingNewLine]", 
     RowBox[{"<|", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\"\<Element\>\"", "\[Rule]", "\"\<O\>\""}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<FractionalCoordinates\>\"", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0.4130", ",", "0.2668", ",", "0.2140"}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<DisplacementParameters\>\"", "\[Rule]", "0"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"\"\<Type\>\"", "\[Rule]", "\"\<Biso\>\""}]}], 
      "\[IndentingNewLine]", "|>"}]}], "\[IndentingNewLine]", "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Notes\>\"", "\[Rule]", 
    RowBox[{"<|", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
      "\"\<Soure\>\"", "\[Rule]", 
       "\"\<https://doi.org/10.1016/0038-1098(89)90607-8\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<Phase\>\"", "\[Rule]", "\"\<\[Alpha]-Quartz\>\""}]}], 
     "\[IndentingNewLine]", "|>"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.716818293073228*^9, 3.716818330015082*^9}, {
   3.716818623050626*^9, 3.716818807301819*^9}, {3.7168188464862633`*^9, 
   3.716818898980442*^9}, {3.716819366758465*^9, 3.7168193672035723`*^9}, {
   3.716820239254225*^9, 3.716820241908815*^9}, 3.7168205373024273`*^9, {
   3.717399785306731*^9, 3.717399791664219*^9}, {3.71739984283571*^9, 
   3.717399852347783*^9}, 3.717942401109949*^9, {3.730144457359858*^9, 
   3.730144461661765*^9}, 3.780118476688099*^9},
 CellLabel->"In[1]:=",
 CellID->867968173,ExpressionUUID->"73b3ca70-b18d-478b-be47-fc7a4b764538"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"ChemicalFormula\"\>", "\[Rule]", "\<\"SiO2\"\>"}], ",", 
   RowBox[{"\<\"SpaceGroup\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(P3\\), \\(1\\)]\\)21\"\>"}], ",", 
   RowBox[{"\<\"LatticeParameters\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"a\"\>", "\[Rule]", 
       TemplateBox[{
        "4.914`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"b\"\>", "\[Rule]", 
       TemplateBox[{
        "4.914`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"c\"\>", "\[Rule]", 
       TemplateBox[{
        "5.406`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"\[Alpha]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Beta]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Gamma]\"\>", "\[Rule]", 
       TemplateBox[{
        "120",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}]}], "\[RightAssociation]"}]}], ",", 
   RowBox[{"\<\"AtomData\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[LeftSkeleton]", "2", "\[RightSkeleton]"}], "}"}]}], ",", 
   RowBox[{"\<\"Notes\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"Soure\"\>", 
       "\[Rule]", "\<\"https://doi.org/10.1016/0038-1098(89)90607-8\"\>"}], 
      ",", 
      RowBox[{"\<\"Phase\"\>", "\[Rule]", "\<\"\[Alpha]-Quartz\"\>"}]}], 
     "\[RightAssociation]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.7168190011694183`*^9, 3.716819371599667*^9, 3.71682024744385*^9, 
   3.716820288532526*^9, {3.717399780502417*^9, 3.717399803152598*^9}, {
   3.717399846458868*^9, 3.717399862552157*^9}, {3.7180130025663137`*^9, 
   3.718013006509646*^9}, {3.718013041754787*^9, 3.718013048173088*^9}, 
   3.718013147407077*^9, 3.718013365672423*^9, 3.730143024797061*^9, 
   3.730143111579218*^9, {3.7301444508452873`*^9, 3.730144464721472*^9}, 
   3.7801184828606043`*^9, 3.780118591200017*^9},
 CellLabel->"Out[1]=",
 CellID->525031159,ExpressionUUID->"7c0062f6-3378-42c1-9b15-3dbe6293487a"]
}, Open  ]],

Cell["\<\
A wavelength can be included with the data (after the space group symbol), \
but it is omitted in this example.\
\>", "ExampleText",
 CellChangeTimes->{{3.716819012682178*^9, 3.716819028313127*^9}, {
  3.716819068496611*^9, 3.716819083160074*^9}, {3.716819146510868*^9, 
  3.7168191910574703`*^9}, {3.716819377499662*^9, 3.7168194128495493`*^9}, {
  3.716820349097416*^9, 3.716820349886479*^9}, {3.717399880256936*^9, 
  3.717399898144978*^9}},
 CellID->1901236413,ExpressionUUID->"d103d73c-4ff2-40c0-98e6-74fe5e2b2a93"],

Cell[TextData[{
 StyleBox["Quartz", "InlineCode"],
 " already exits ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"7922df20-2a42-4bcb-804a-911c0066c959"],
 ". In such a case, the user will be prompted about whether to overwrite the \
entry. This warning may be switched off with ",
 Cell[BoxData[
  RowBox[{"\<\"OverwriteWarning\"\>", "\[Rule]", "False"}]], "InlineFormula",
  ExpressionUUID->"dfb90eba-e971-43ee-b96f-fe26d369d3b1"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.7053793637921963`*^9, 3.705379512916294*^9}, {
   3.7053795481226177`*^9, 3.705379548727261*^9}, 3.717942412555764*^9, {
   3.718013395983602*^9, 3.7180134100236998`*^9}, {3.718014842663287*^9, 
   3.7180148630875072`*^9}},
 CellID->1811728991,ExpressionUUID->"f07037b2-91d8-4b4d-afcd-00f8807b3eb5"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQt0bFV9/3cf//+/arU+oIpUCG9ugMvDB4gB7sVHjRavRaOC2CDKNbRq
U1prsKuNokaojS3GtqS2K7WNq65gTanpgqxVYju2nQspOoQU8tepjnUuhMv1
lt4/5cJN19r//Ttn78yePXufs8+cM3Pm8d1rfe5NMpPJnMf8Puf32/vsfdJ1
v3rl3h9njP36T4l/rnzvR3ffeON7b3rb88U3Ix/+9Rs+8OHr3z/84d+4/gPX
33jRdT8hfvhfgm/9GGM/ydDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ
0NDQ0NDQ0NDQ0NDQ0NDQMm0/BgAAHQYaWjta3uc5AADkDRqa3vI+HwEAoNtB
692W97kFAAD9Alp3trzPGwAAACFondvyPjcAAABEg5Z/y/sc8OHHAQCgzeQd
9+DQzmvwHwAAZA/82VsNbgQAgPyAQ7unwZEAANCZwJ+d1brNlT8BAAAdTrc5
FM2/dZon8z7XAQCgXXSaR9GiW96uzOMc/UkAAEhIt/kU/mxNy8OXcB4AoF/J
w6NwZzatnb7sFi/+LwAAkHSLV+HP9rR2+LLVjsz7MwUAAElptUvb4c9+bK30
ZZaezPp8/d8AAJAxeXk1K4fCnfEtL19m6ci8PycAAJCWLF2alz97vbUqx2zW
la3w4/8BAIAOoxU+bdahyD39W6f4Mo0j05y3PwUAAC2mlW5txqHt9mcvtayd
mdSXzXiynR58FgAAeNJOzzbj0Sz92a/ubFeO6evLpJ7M23vPBgD0HXl7N6lH
0/oz69yzm1s7csxmfZnUk53kt+cAAHqGTvJxWo+20p/94s5WOtPHly5X+nox
rbd+GgAAciKtt3296utQX39m5c5ubO10ZpQvlSfpmNM58lzB8yQ/Y+H5Fl7g
4IWevAgAANqEb1xyxTVbDLTFShVHKaZSbFVeNR0a50+4M2xZODOtL5Uz6VjS
sT1WcLxgQHCK4FTBaRqnWzjDwpkR7GiCQQAASEgzsSYqdtlinS0m6jGTYijF
0gEWxlaKsRRrKeY2k38m8WevubMTnKnqBnT8nv+sZz3rZd/4xjc+un///ruf
fPLJzaeeeooDAABID8VUiq0UYynWsjA/fRaz12/hTntrtzNdY32CPFMcxxMe
fPDBPzp8+DD/z//8T37w4EH++OOPAwAAyACKqRRbKcZSrKWYy+rzzjh/tsOd
ndyydqavL21jfqje/rN0DfTEE0/kfm4BAECvQ7GWYi7FXhmDk4wdivNnL7oz
L2fa7iGh6xzqq37ZD37wg7sPHDjAAQAAtB6KuRR7ZQzWx+BmkXv2mjvzdKZ5
P8mzWTje62RxDbT52GOPcQAAAK2HYi7FXhmDn80a71/J052d1NLkms0405Vj
Kqg+QOOpT9/c3OSPPvpoLI88uMarX5zlP7hhjH//ja8PoK/pZ/SYz2voiGsu
/sADD/BCocCXl5cD6Gv6GT2W9+sBAEAroJjLwrG3L2C1+1PM+z9tuWdad3ZT
ztlJznw2q81LQPcnnfHII4/wOPZ/Y4VXfvWD/Im3DPOtd72N/8+17w6gr+ln
9Bg9x+e1iO9+97v8m9/8ZuC1++67j5dKpQD6mn5Gj9Fz8no9AABoJSy8j+WF
rH5eBbiz1rKqz7qc6VOXNZ1Jc2XQ/b9n7t+/n0dRfaAUePHpkbfy/3nfLwne
w//nOgl9LX5Gj9Fz6Llxr/f9738/8Ni+fftobBlfW1sLckKCvqaf0WP0HHpu
u18PAABaDQvvCX0Rq81b5HJnXN02yp3dWq9tVa7p40ybL5UzqT/6GMGOH/7w
hzyKH9z+R0FO2eBMw530HHpu3Ot961vfCnJA8pnymwk9Rs+h57b79QAAoNWw
cJ6FY2Qs1uf8i8s949zZCzlnK51pq836OpPuHaJjNvgf//EfPIrK2AfC2qxy
5nsNpDvpOfTcuNf7x3/8x6B+qvJCVVNVqDyRnkPPbffrAQBAq2HhnEbHsNo8
fM2401WzzcqdebVOcaaax/i5EhrHRXM+nVWpVHgU3/v514X9mddp3rz2mpD3
anmneA49N+717r777m2fKc99+9vfDjB/Ts9t9+sBAECrodgrY/DPaHFZn2++
E9yZR8si10zjTHPNEX2+dprnie67PZv6/KJI6s2410vquXa/HgAAtBqKvTIG
P5/Vz/9urtWSlTu7IefMuj6blTPVPP00/vnFgnO+973v8Si+/4G93nVaem7c
6/3DP/yDd12Vntvu1wMAgFZDsVfG4Bew+vVTsnRnt9VrW5VrZuFMur6h8c8v
Eewsl8s8in//wue9xwXRc+NeT90b4jOOh57b7tcDAIBWQ7FXxuAXsvp1yLJw
Z7fmnK10pulNV3+mqpkrZ+prZdL45+ME59F9jZHsK/J//+ANsfeh0HPouXGv
99BDDwV5X9x9I/Qcem67Xw8AAFoNxV4Zg1/E6tf01N2pjxey9Xc2M8a2k/s5
k3qz2fpsM86k6xsax/VSwfnf+c53eBzf/bulwIuueQ8CZ4rn+LwWQU4jj7nm
KaDH6Dl5vR4AALQSir0yBh/DamtkZ+HOZuq1eXszj/qsa9ys7ky1TjkdH7q+
oXFcPye4YGNjg3vxz//Ev/v5P+D/fv37g/E/BH1NP6PHvF9HovLAlZWVYLwO
QV+rvDHv1wMAgFZBsVfG4GNlTH6hFqdNd7rG2fZKvbYZb/rmmnF9mi5n6nkm
HR+6vqFxXDQf/8sffvhhDgAAoH1Q7JUx+GdlTNbdacs7TXdG9XW2IufM05tZ
5ZqucUA+zqTrGxrHRWunvoL6/AAAALQPir0yBr9YxmRfd7rGCbUj52xVyzrX
TFKftY2btTmTrm9oHNeJglf+27/9GwcAANA+KPbKGPwSGZNd7rSNs222Xtup
/ZxpvBmXa8Y509anaXMmXd/QOK4BwYXr6+scAABA+6DYK2PwcTImx7kzbpyQ
7s5mc85O9GZUjbbZ+mzUOCCXM+n6hsZxnSS4aGlpiet8/etfBwAAkCFmnKXY
K2PwS2VMTuLOqL7OJPXapLXaVrW8cs2kzjxecIrg1QcPHuQAAADaB8VeGYOP
Z827s905Z6taWm8mzTWj6rM2Z1JNgI4TjeM6VXBx3ucPAAD0GxR7ZQx+mYzJ
xzG7O33rtUlyzm71ZpLxQGauGTV+1jV2VjmTrmvoniEax3WaYCjv8wcAAPoN
ir0yBp8gY/JLWb07k+Scujt9cs6o8UHt9GYr7j3xyTVt887axs7qzqTrGxrH
dbrgkrzPHwAA6Dco9soYfKKMyaY7bfXauPG1rpwz63tSsmhZ3bOZVa4Z1adJ
x4eubwYEZwguzfv8AQCAfoNir4zBAzImq3qtq6+zlTlnHvdytvPeE7Nf07c+
S8dD1Wfp+obGce0QXJb3+QMAAP0GxV4Zg0+SMVnVa82+zqh6raufsxvuScnC
m3HjgXzH0PrUZwcEJwsGBbvyPn8AAKDfoNgrY/DJMib71GuTjq1t1figTvZm
VK6p1gd3zT0bVZ+l6xsa/3yW4PK8zx8AAOg3KPbKGHyKjMkDLLpea8s5lQea
zTk71Ztp+zbjxgP55pp6fZaub2gc19mC1+Z9/gAAQL9BsVfG4NNkTDbrtWly
TnN8UCv6ONO2rPs2bTVa13igqH5NW65Jx4eub2gc1zmC1+V9/gAAQL9BsVfG
4NNlTFb1WlfOaevn9BkflGZcbSd7s5karW08kJlr2sYC0fGhe21pHNdOwevz
Pn9Ap7LJK5XNLvgbFb44t8A3ct9fAPhDsVfG4DNkTFb1WtcYIZVz+s4h1Opa
bdqWpzd9ck19LBAdH6oLnCk4V/CGLM+FSmmFT0+M8dHRUT46Ns5nF4t8swPO
0VZQKcyIc3+UF6rt+XuF6WE+NLXStu0rTA+J7RviK5XO/Rub5RJfmBmnGMRH
J2d5Yb3S8JxycYlPjYfn5NjEFF8sbuR+7jSeP1VeWJjjs3NzfI6YneVzC0t8
vYX7HuQLxV4Zg8+UMflU1jhGKC7n7Hdv+o6jjcs11Vontn5Nup6h40N1ARr/
fJ7gjVmdB6XFySB+MTbIR8fH+cgQC78fneXlFp171SLFnuGWxnYXlcJ0EPOX
2/S3V6aG+OBk+7y5vjTNR0aneWkz5rnVAh8Rx3lqpdy6v2Fhc32BDzJ5jmnM
FmvuXJ0flz8f4mPCnUPyOSMzhez3WcL9UH/+VPj0UOO20Gdpenm9JX8f5AvF
XhmDd8iYfBqz55yqn1O/n9OVcyYZV9uN3kxy/0lUjdY2N5CrX1PlmlQXoPHP
5wuGMzkP5GeWsTG+UlY/r/LFieHg8z+x2Jpr/KqMPSttyvl0VNxrrbM3+aZ0
SqHN3vQ/9iuBj6YKjbleKynOjgTnW3F9mQ/TtZPIPSfpHBxb2H5fw/T94Dgv
qvNjc51Pj9B5OpJ9nSDhfqg/fyp8apDxSc155eJ8+P7Ftnldm+V0HEBzUOyV
MXhQxmQz57T1c5pzCPnWan3vR+lEb7aib9N174mrX5Oua6guQOOfLxC8Kcmx
3lgt8mIp/GxvlOjr0IelhXF5rV81fmedT4p4wEZmeVV8vzo3Jr6e4RX1+GaR
j4lr6tnV8Pc2N1b45Mjg9vX28MQsXw+8UeVzY0N8aHScjw6F1+F/c/d03bU5
5RDV4mzdzwaHhGtEbApzkE2+Lt7/qqzl6V+7qfDF6bHaaw6N8cXV8Hfq4p64
bhgdHOHTM5NhDjQ4FeTYtD0Tw7X3Mz67vF23dm9rSHF+cjufGhqf4bPjYvsD
b4p9KvbB2Fyx9j4ry8F1y4w1Zpb5wuRobZ+I/G61Gv58ZoS+n90+HivT9Dzh
mc1w+waH1bEq8/m615jihfJB7XpJMjwdPH9TuEzf7rHpxdox16j7G3Ifzs5N
b2/3YEQuSvk3YxPid1eFX8RxEM8rr8zz2YWwb6A0Hx63uVWj/1TmqTN0TliO
29/NjATbUauRiHNvdJAPTy0H368uTm/nreTfWcoHHfvB+/yxeDM4R1bnwnN7
thh9zriOQ8w5BvKDYq+MwWfJmHw6c/dzuu5JaXUfZ7d5M+r+kyTjgQZYbQyt
yjWpLkDjn18ueLPvcS7Jmtfk8gZfXwprsmPzq7UYJl1h/h71y6nHgv4s8fV2
DK3Ia+QgXlT4zFCYHywVV3lxeS54bGR2NXhseljF4Hm+vFLg5eoGX5oZCxw6
s7gSOlD8rLCywlfE48WiiN2BY0dlbNrkS5NDMpZWZL7ick3I6lz4nOnFAi+t
rvApeg9DYUyq9+bKdm4ws7DEVwoilm6uimsCumaY5MvFIl+eV/usFLOtFP+n
wng5OccLxULgTPp+WPZvLk1SLJzcHgsTOmKklldphM8d4jNLBb5aWOCjQVwN
XVWVcXlsYZ1vlsKvJ5fCumAleA/hsVoN9tUwny+UxPXGUrhdQV5X5atL4fXL
2Oyi2OfiddS2jUyLXHCdFxbDbZlcadzP+t+o7cMRPr9SFL83E7hseKZoPTYb
y+H+HB4J+0gXVuudE3VObmM5bmG/I+PzJenb8lLwPui8J+cyef2zvrHK5yaG
gt8tVG37IcH54/Cmqt8OTi7HnDMRx8FxjoF8odgrY/DZMiarnNMcW+s7PqgV
96O025tZ3Lep33/ie89m1HgglWtSXYDGP79C8As+x3hjKYx9EwslXpE5nZ7v
hD6ctuYUG4Fjwz7IhudVdW+K7zc3eXWTapNVXhUOnKV8KMixZP/PxFLda1eL
7jrt+uKEjH96DrzJF2WsWypXRX41HHh3oWTmyTU2q/R+xPsSsbEUvOZwUOOz
eVN3Q/g4/f2KeI1qEMfmx1ht+53bepAvjtfia/h6YVxV44KU4+aC2C7jo7Fv
1P4dDmJlIfw7m9QPPV7XL1ucDfNIcsPQxKL2/mtOC659hM8WhDerMl9R9eOD
m4Xgb9Tqg+F7Dby5Ud7e77bxYfrfUO91StuHy+T84bBWYTs2JeGCseGhWp41
KPK5UiX2nDT3T73TN/gE7YvpsA+0NDca1INL9Jj05sTcMt+Q44Dp3LDvhwTn
j9Obhv8jzhnr3496PsgVir0yBp8jY7Kec0aND/K5l9N1P0qW93GmbVl5s9m+
TZ8arZ5rUl2AjtUrBVfEH+NSmF+Izy7FryBGs4m6cf9hzWzSkW8OGfmmy5ub
fGV2vBYDVW1pquZNczypq49R5QyTS5Z+Vfk32SjlS6thvuGIzeXCXH39S+tv
Mr1Z5/+DNW82ENTQora1XOdIxdLEoBbz5HOmxbVLJVg7frvWbW5r4/tnvH4s
1QYfl3mefv1R57RKkU+Nan4aGuMLxfL23xg2tn2D9tugtl3jM7xkubYxvWnu
Q71W4Tw/hS+GxLXP/MpyUL9W1xtR56R5LphjacL8ekL8bpVP1x2LKl+a0Y/b
EJ+cWwmvCSz7wfv8ico3B1W+GXXO2P5+zPNBrlDslTH4HBmTzZwz61pt1H2c
3eBNc76DpH2bUeNobTVaM9ekugDdN/QqwVt8jjGNXaT4MiQ+v9XycvD5HBxf
2M4hNmTdVn1mg5ru4ChfWi2E/Ztj88FzCzPD9XXaIObJ35M121HKjWSMmh0W
f8fHm3pM3lgK61HWMZMbYa1MxMT1zUpw/R2MLbGOEZF53OgsX6+GOcVGkKuF
zon1ZlCDHBR5rfaa4rq/Qq8Vua2bfGEsrKXWXF5t2P71oDY7wednRgP3WP0g
3xfVYWs/p3smq9vHTuXlxPBkLWetc5r2/jdKst6ojqPclulCo7c3K2W+KnJC
Ol+GpxuPR7w3XTljlc9PjPDxOao5FsXvDfEiHZ+gLhruC3VOTpt1+PVF4fRh
PlesOL2parPTC7PB//PrjfeYVjZKfHE6zNWDxxv2Q4LzZ9ubFWP/zMg6einm
nLEch7jng1yh2Ctj8E4Zk105p1mrdY2rbaaP0zb/QS9609a3aa57omq0dL3i
8ibdN3Qh8/Rm+BkO67OjIlZVS/Py2nVZPl7eHkc/tVDg5Y1l2W8UjuGZk7lQ
GCdFfBDP2dhY3e63C+KWjGEj00visXW+MjcRm29WZU43vVTkZaqbVVf5BHl6
cIIXNzb4eqnES4KKGls0qsZSbor8Lbz2X9pwbXM19OrwFC+ub/BSYUHmDvX5
QlDvrFjirxqrMToT1CvXi4th3k711MhtpZgffj8+Ix4vr2/H57pcQcslwz5T
2zZshrVh6jMsrIvjQvuc+jtHg7E/BzcWAy/Q76v8eGq5rB2r0GlB3VhcXyyX
yrxaKfGZUb2OvB7WNSfmeWmjElwLjcjv14Wfy6uLwfe2fsr6nNblzSlrrTXM
Jwf51Mxk8P/Mwrzsd52XnhDXSHIM2cyiOD/KwuEr82H/LhsPxxvZjlvdfqv1
Bevn79Tiqrj+qfCC7PNf2Nhs3A9Jzh95fo/OLvFiscALhWU+NyXHEw1NhbWd
mHOm4e/HPD+4R0cfawzaCgu9eaGMxS5vqpxT1WrNdVJ8+zh7yZtJ16h29W26
5jqIqtHSfUMXCfYkOdbUT1eV184H9a+JzXURk4ctdUktbxLPmRmr1fuGxqf4
2GCtTrs8o489HOeTY4PSlZXgWrnhvv/NEp+U44WollWV1+cmqs+sKmKd6p+r
Vmpfu6hs3wsQxt/x8RGu7mEI7x2V9zNIR5q5TWV1oa5OR+NQw7GsUdtqeXzY
fDxkSfbVRt6nIPbR9Oigtj/IobS/VVxXY0dFnqs5NXCEdNamuA4a1+8vHBzl
i9t9wuK9TquxtmGuV1qcqru3cmjcPo5T/xu2fRjUaYdm7H2Um2VxPVFfhxyd
nK//O1Xa9qH682F4gi+vy/fuOG5EeVn26S/quXo5yHP115ucLzr3g/f5Q7np
sHneDvGJmUWtjuBxztT9/ejnF2bC95LHPVwg8OYeGYPPY/G12qg5EGxrizWz
lnUveFPdt/rTzD7fgdm3ac51MMDqx9GaNVq6b+jVgrdmfT5UKxvi+nZD5H9V
XpLjicx+RnJWpeqYXy0Yw+Aep9N+NsX7raaY94jqoo7tjdnWTfPapI5yGGvH
Frze26a4ZqD6bLpjm+Q1wu12v/+MEO4bG3LV2uX7LotzMsB/+4N7plz3eVK9
XWyb3zmR9vxJds6kfj5oCxR7ZQw+nzXWal3jas05EFx9nMobUfMfdLo3f4Jl
OybIXDMs6v4TV41WefMX8z5/QHL0+1S375cA2VAthvVeZx85AOmh2Mtq3oyq
1Q4w9/0oSefc8x0b5HM/StqWxptJ5wmKu2/TrNGqOdz1Gi0dI7rf9mLBlXmf
PyA5m+UiX1xYtM7HClKyucGXFxb44spqz86tDPKHYq+MwRfImGzWas05EMw+
zmbGBvnOt9dL3syib5PqAVRPp/ttX8PgTQAAaDss9OZrZCw+T8bmLPo4e9Gb
UWNpm/Wm3rdJ+3aAhftaX/tE79vUvfm2vM8fAADoNyj2skZvmn2cp8pYPiBj
u9nHmaU3k84blLZl5c2oe1Bcc7lHjQmK6tukeSqGBG/P+/wBAIB+g2KvjMGv
YMn6OG3eNMcGpb0Xpdu8ad6D8lzm9mbcWFpzHnfVt6m8eQmDN0GGVFOO101F
Nf6+IgA6BRZ68xJW703Vx+nrTdeYWuUNn3lqu8mbcfPS6t70HUur1g1T8x24
7tukfmia34mO2Uj8McaauiAeNcbXPQdDOqLXCZfzF7vu9exgaIzX3Mw0n5qa
5nNLRedcvKC3oNgrY/ArZUx23cep5j/Q1xXzHVPrWoszi/nd07ZWeNM1n7tt
LG3SMUHKm5cyL29msKZuD+OzdnbHrp2ZJeUVPj48Es5f57lfojD3WfQ64VW+
ODnKx2aW2zoGNvW66dra20NyPl99/krQu7DQm5eyem8mHRtkjqlt1fzu3eRN
33tQfLxpjgmieRHpmL0j/hhnsKZuD+OzdnZfeLOJ/RKF3ZvDvBDUYmvreXfz
Nhbl+mzLcg7jpcnhiGsD0EtQ7JUx+FWscWxQs970vRelH70Zt3aY8qZtLneq
o6f2JmGuqRusjzxVW9s4mM9sw3ZPfvy6y6WlGW1t4CE+vVjafi+zI4N8dLb2
u2F90Fa/KwVz1W7PVUTzyujzpsn1Mafl2p+u9YWj1lM21zxpvE++ymfr5rhj
cg3tqG1sxFz/emRyXs6/pvaltqZiOWpfqjn2attlrtk8ODYva4VyzbXRue3a
IcX1IZr73bZON/2M1iAX2+faL1HreMftM/WaY+O14zQ6tSjfG61rPqjtf8c6
29b961rXO6wND4nzeHpyRHvPK/IxyzYmXAe7XFjgM2o9lYNqLQB4sx9gjd60
zRt0OvPzpj6mtl+8mXTOA5s31T0otG/jxtLSMaL5hC8TvDP+GPusqRuucxXU
bhdW+GpxSc5nOhqxlrJ93WUVj2jN5mKpKOJfGLPU2tbB35zyqd9t8nmaf3ws
XFOysiLjnPAAxanq6ixX65VErS8cuZ6ybe1sY1vLpQKfFTGdjc3ylUKRb8Ru
o7Edav3roXG+WFgVf1/6e3yxti+1tbbC9SLVHLPh3xmdXuDFVbX+9VC4Rotl
zeZwPnk55/tmUc6BruqQ68F6Y6PUf2lbp1tfW8S2XyLX8fbfZ2xokq+srvIl
uUZWOPdw/XnhXmfbdS7a1/VWf3NwbIYXVot8QV5bzRar9m1Mug629j42VmbD
65uR2a7rowXJodgrY/CFrObNqDG1ypv6mmLNejPpemKd6s0k66DY5jyIuwfF
HEubgTe1NXVlvKiLgSKHDOKD5fei1l1Wazbra2gF87COL3DbuiiuNTiJ9WDd
pvHAz8uT4r0ODYV+Pihjq7ZGlWt94bj1lKPWzlaYNcfobaz/Xdt6ZOsL49vb
rPblvNyX+rVM+Hem+HqwXWL75BpwY5r76tauEseMYvfsqvg66LsbDL6fXBbP
KYdrNi9uHLT/rrEml7lfYtfxjtlnjWvG6a6sPy8i19nWiVnXO/ybI+F1RPA7
q0EuP+nYxsTrYG+fp+E1xPB2HQH0Oqzem+aYWp97UZqd+0DPOfvVmz7z0prz
6ylv7mJp8021pm5Vrf2nx9FiEGOsOZRz3WX18/q+wDAO0hrEybypru0X11eD
2DUr8pyp4H2W+NxIbW2rqPWF49ZTjvz7kpU6B8RtY/3vqtit16G343XF3JeL
2vVIWa6j1UiwlpR17cnwGmZkrhis4TU4tcwLs8PBNU3oE/n+bL9r/MzcL9Hr
eMftM9t+1s8F47yIWmdbJ2Zd77r1WrRzftKxjcnXwZbbOsmCfYs8s39goTd3
sZo3zfn2fNfihDfjvWmb88DlTdc9KHSMaP2aXYJ3xR9jjzV1ZbwYX9RqT/Jn
tnyTsK+7bFuzeTNYQ4yNzgc5ShB3tDWQK8uTEd4K1wUdDvrERoNr/MLUMB8c
HQ/eW12+61hfOG49Zeva2QaUO7GJ5e3tid7G+t+19XmVg3pq7WfBvhykfann
0La/o62f5ozxo4FnRml9t4LYH6XZYF+MDWtrTyfxZlXfDsc63rH7LKE3tddv
WGdbJ2Zd78a1u+uvIRuOfZPrYG+W13lpA2uW9BMUe2UMvojVvGm7F8XXm/o9
nPCm3Zv6nAc+3jTvQUnkzdg1dVWMFvF1bqXEN9YLfFquEe3MwxzrLpeXw5oV
rdm8vrHOl2U/1oQc3xPUHgfH+NLqetB3Vd8H10hxJuw7HJQ10PDeARY4ez14
TvT6wnHrKTesnW15D+Eay6PBeyZnxW1j/X6S61+PTPECvb+VebketuZYbV+O
aw7Y/juzy8E6WgXZpxjUBRxrNm+uz8v9I/s5D5aCfk22XROw7xPzZ41rikes
4+2xzxr7sd3ejF5nWyd6Xe84bzZsY8J1sA/K82+e+p2xhnRfweq9GXUvSpw3
bXMfwJvJvRk3n3tib8avqXuwYU3qoH9pNXq9Dte6ywW5Nr1iYq6WX1ZLi3W1
tdHR4Uhvqv6/7XEYcnzK0KSWy0SsLxy7nrKxdrbtPVSKc9tjWlXMjdrGht9f
leNVmBrzOROM59WfE4x9tYwrNv/OuLrH0blm8wafHAz7WpWXl6hvmI3X+uRs
v2v+zLJf3Ot4x++z+nWea+dlWHuoX9c8ep1tA+e63vF12oZtTLwOdviawXUb
1pDuK1ijN+Pmdx9g8KavN5/H/Lyp5goaYP7e3M28vJmMYH3kqs86vTHrLsv1
du1zp8k1kTO9hy/j9YV9iNxGy/urRqz3HfN3st9fze9n5zreGZNkne0s1vWO
InIdbDq2HXFsQLtgoTd3s+Te1OcMivKmWr+6X70ZNzetfu/mAHPPeaDuQdG9
eVUe5wzWXQZ9A9bBBhYo9rJGb+r3cNq8eSLz86a6FwXebJyb1ubNqLmC9DkP
aJ3x3LyJdZdB34B1sIEFVvPmq5l97oO4OYNs3jTn2oM3k3szaq6gXL0JAAD9
DIv3pr4OJ7yZ3pv6XEG+3tTnCoI3AQAgR5jbm+acQVHejJvbHd50z+muz7EX
5026T0h583IGbwIAQNthoTcvZzVvutavtnnTNtcevNk+b16d9/kDAAD9BsVe
Bm92kjfpPll4EwAAOhSWzJunMnizHd50rYWivHkxgzcBACAXWM2bF7Nob6o5
auHN9nrTXAsF3gQAgBxh0d60rYkCb+bjTX0tFHgTAABygtV707YmCrwJbwIA
AJAweBPeBAAA4A2DN+FNAAAA3jB4E94EAADgDYM34U0AAADeMHgT3gQAAOAN
gze71ZuvZfAmAAC0HRZ687UM3oQ3AQAAxMLgTXgTAACANwzehDcBAAB4w+BN
eBMAAIA3DN6ENwEAAHjD4E14EwAAgDcM3oQ3AQAAeMPgTXgTAACANwzehDcB
AAB4w+BNeBMAAIA3DN6ENwEAAHjD4E14EwAAgDcM3oQ3AQAAeMPgTXgTAACA
NwzehDcBAAB4w+BNeBOADufxxx/njzzyCP/Od77DS6USv++++/i9994bsG/f
vp5CbRdtI20rbTNtO+2DLPblP/3fQ/z3vvFf/LqFJ/mev3iK7/nLp8L/exja
Vtpm2vYs9iGDN+FNADoc8sYDDzzA19bW+KFDh3i/NNpW2mbadtoHaffjP20c
4r/ytf/Hr73jKT72N0f4B/9W8HX5f68ht+tD4v8b7nyaX/vVI2Lbnwz2Qdr9
yOBNeBOADodyrgcffDBvjeXWaNtpH6Tdj7f+/WH+ngXySOiSEPH13/QgddsY
bidt+61//1+p9yODN+FNADqcb3/728H//dr0fZCGq+f/m1/310f43kWdp/n1
i+bPeoFwu67Xvr/ur5/mV//lk6n3I4M34U0AOpx/+Zd/aU44hyv8jttu5nv3
7uV7x2/ic3fdz49kq7Tkb2ltTsTdvXwt4RuhfZB2P77u9iP8vcIdNcLvr/ta
xtzxQ/6GD07xs674UMAFY3/L3/UV/TlP8D03fYlf8adP1P3sCvGzSz5S4KMZ
vAe1bQr1M9oHafcjgzfhTQA6nG9+85uJ/bS1/x6+hzGKcXyPcObe3eHXbPdt
fH/iV8uuHV67XbyP3Xzf4WS/R/sg7X68/A+P8GvueJq/R+OahZD33JERf17g
p8n9/pJXXsVPu+SycL+zq/jP/9mT8nkHuQho/NypR7d/7817rwqed/ZvPZTJ
+7hm4cj29un/0z5Iux8ZvAlvAtDhFAqFhHba4nfuDWP33P21cURrXx4Pfnbr
vgMJXy+7prx5f0Jv0j5Iux8v/fyRIO97518JvlLjXV+p/755nuSXvSnc7+d/
/PvbP3/rp74QuvO1f8XfEfzsID//BOHNzzwaPH7FTb8TPH7Kh/41o/cht/Gv
Gn9+6eefTr0fGbzZrd68nMGboE9I7M0j9we55p7b7zceOMBv2137eaUwt52T
MraT33rnmjBu8AL8jvHdfM9Nt/Kb9qjHr+F3PlyT3daB+/nNe3bKxxjfe9td
vGboQ/yuW/duP7Zz7+28fCR/b178+0/zt335GYn+tfo+JX/+r/wEsb3H/lKh
4bHXXXeF2O4r+O4/o+8P8nPJm7c8wa/83JeCfXTs2+/O5j1sY25b+PXFn8ss
37ycwZvwJgAdSlJvhm7aye+JSisP7+M7ya233cnLlTK/Zy7MRcPfOcznpC9v
umMfLz+8TziSvr+VBw9vlfk4OXHnTfyetTK//67bQ0feui903K07AzfOFdZ4
ee0uvpce2zPHD+fszQs/e4Rf8RdPS57JnOFPh3nlhV+wPP7HK/x5VIe9eVN8
/yO+cwfjp93wJX5iUDv/En9TC95PSP320j5Iux8ZvAlvAtDhNOfNPfz+mLE3
W1tbAUeOHOGH9xf4bqrhBnXdw/x26g+9ufZ3tx6u9UseXrst8HJBu5X0wNo9
/K59le1c95ovi9x16wg/IhLYyj03ab+bnzdfccvT/I1zz7SM131yOsgpL/4T
y+N/cj8XgY/v+Pim+P5H/Jzz2XY+zs6c5Jf9adbv56j1a9oHafcjgzfhTQA6
nKTePPLwXBCP79y/FfGkMr9t7+5a7Jbcpnlz9221Oq/uO+Vl65hY4c1rjNcM
2aP9bj7ePPeTT/PLv/gMv/xPjxr/Z8OuT34xrEvf+t+Nj//+3cFjZ3z8R+L7
H/EzyJsXfZFffOvd/FjaP5d9KXBnVu9le9sU8ufnfgredMkwQYM3AehwEvdv
bj0c1EZ33mz+3iE+J1y5d26NV+4cD1x2T0UmjYf3BfmmlzfvD/NNfUzskf0P
87WHDwTepNcZv0sftbvFDx8+EvSd5unNsz/+NL/k9mf4JbNHQ24/Gn5/+9Ha
z9Lwxw/z48S2P2d4ueGxnVfSuNqr+cu/QN8f4qccz/hJv3MoeOyiic8FTn3R
u+/N5n3Mhts1pLZV2z7aB2n3I4M34U0AOpzk42k5X5u7JojF19x2F68cOsQP
VNb43E1hfjm3dpjvvyusnd6xVuGHhPPmxnd655v8yJrss7yVr+0/wCtrd4bj
i8bvCRx557gcR7S2nx86UOZfvmlncM/mw1vN34eShTfP/O1n+IV/eLSePzra
+LMUnPv+9wf78QW/8BV+7i2P8Zff8jA//a1XBz875j3fks87xE8U3jxh4rHt
3zv7qvA5J3y4kun7MbfxzN+GNyON6NfgTQA6nGa8Sf66/8s3G7XS3fz2e8rh
w1SnvaY2HnbP3tCzt68Fo3f4l/fUezOs/e7ZzhOPVO7he3fWXlsfM8u3Kvz2
vTu1v0sOPaS9zjWJ5z3Iwpun3vQMv2DmaCNf2LL/vEkG936GP8uoUx/3vm/x
87efc4if8FLGj//Nx7TfO8QHXnOOeO5l/LTPPJXh+9nSOMpPE/sg7X5k8Ga3
efNVDN4EfUZz3lTCE7nmgQOCQ9zW20ljgo4ciegHjWxUfz3MDzt+f+vI4aA+
m0XLwpsnf+QZfs4fbAmObv+/M/hf/SxDPneI7/hEhZ/5if38rM9l/NoJ2Gls
G+2DtPuR1XvzVQze7FRvns/gTdCnpPJmj7QsvHnirz3Dd0wf5WdOq/+P1v3f
S6htrH0f/n/ijS3z5vkM3uwUb57NGr35agZvgj6imXn2eq1lMc/ey8aP8tN+
V/BZye9q//cqals/uxV8T/sg7X5kNW++mjV682wGb7bbm6cITmPwJgDbrK6u
BrXWfm207bQP0u7HCz52hJ/0qS1+8i1b/KTPHN3+X33dS5x0S2371M8GPnU0
2Adp9yPz9+ZpMqbDm53jzavyjmcAtIOHHnoo8Ea/Ntp22gdp9+Mvf/EwP/5j
R/mJU1v8xE9rmN/3AlPa/5LjP7YV7IO0+5FiL4M38/LmcYLjmb83X85q3tzN
4E3QJ+zfvz+oUxaLRf7YY4/lrbG2NdpW2mbadtoHaffj3913iL/mtw7z4z66
xX/uE4JP9jCfknwy3NbjJraCbad9kHY/stCbu1nNmy9n/t48XsZ+eDO5N1/M
/L25k8GboI95/PHHeaVS4ffeey+/6667+Ne+9jX+1a9+taehbaRtpW2mbad9
kMW+vPOfD/DrPn+Q7/i1J/kx128FHCv/7yneX9uuHTf+d7DNtO1Z7EPm9uZO
5u/NFzN409ebxzA/b54h2MHgTQC2IXc8+uij/JFHHgnyL6JarfYUartoG2lb
s/Il9mN2+5HFe3OHjOE+3jyGwZsub76AZePNVzJ4EwAAcoPVe/OVLBtvvoDB
m0m9eYJggLm9eR6refMiFh6zd+V9/gAAQL9BsVfG4ItYzZvnMbc3B2SMhzfj
vflcuf1x3qTxVS5vnsXs3tzF4E0AAGg7LPTmLmb35lnM7c2fY/HefJ50B7yZ
zJt0n6zNmzSPE7wJAAA5whq9eQGze/NUBm9m5c1jmdubJ7NGb9K8TfAmAAB0
AMztzXNYozdPZm5vHsvgzSy9qebaM72p1kTZJXhn3ucPAAD0GxR7ZQzW10LR
vanPsQdvpvPmC1mjN9WcQS5vutYSu4zBmwAA0HZY6M3LmN8aYqY3X8oavflC
Bm+a3vwZZvemPtce7VMapxzlTTXXHrwJAAA5wRq9GbUWyskytuvefAmze1ON
pe0Hbyp3JvGmPketfg8n7WPqR3atiaLmPqBj9o68zx8AAOg3KPbKGBw1x97p
MpYrb6p7UMy5aZN4U/mm272p55w+3rTN7R4194Frrr1LGbwJAABth4XevJS5
59iLmvPANae7rzeVd3rRm89h2XjTnPtAjamlYzaS9/kDAAD9BsVeGYPNe1B8
5gry9abySL94U7lT96ZtjlpzTRSqf9u8absX5RIGbwIAQNthoTcvYdH3oOje
NOcKUt50zU2rvKl80uve1HPOOG/63Iuie1MfUzskuDLv8wcAAPoNir0yBptj
aZU3fe5B8fWm8kq3e1O50/Smq4/TNkdts/eiqDG1FwvenPf5AwAA/QbFXhmD
fcbSDrDoe1DMuWl9xtIqb+pO6kZvRo0NSupNyutpn9vW4VTz1Kq5D65gYc2A
5ue/RvBLgmsF1wmuF3xAcIPgVwQfEnxYMC64UfAbgo8IPiq4SfAxwW8Jflvw
O4JJwccFnxDcLPik4FOCT0umBJ+R3CK5VfK7Gp+N4PcAAH1HVEzQY4eKJyq+
qHhDsUfFIYpJFJsoRlGs+jgLYxfFMIplFNMotlGMo1hHMY9iH8VAioUUEyk2
UoykWEkxk2InxdBrWRhTKbZSjKVYSzF3FwtjsDmfu77uJsVwiuUDLBtv6mNp
u8mbZq3W15tRcx+kGRtEczxRjX234LWCNwjeKHiT4BcEbxH8IgtrCm9n4Rgw
mh/qasG7Be8RjArey8Jz5H0sPF/2svDcGWM1535Qotz7qxI6735NcqPGr2v8
hsFHYvhNAEDPEPd5N+ODHjv0mKLiDMUcFX+U81R8Uu6j2EUxjGIZxTSKbRTj
KNZRzKPYRzGQYiHFxHewMEZSrKSYSbGTYijFUoqpFFspxlKspZhrm5eWYrTv
mKBm5jyI8qbpqV7xZtSYWp91OPU+TlWrfRULj99rWHgs6X4i5dDXs0aH7mHh
OfE2Fl430bmie1Tlq3ReXctqPn2/RHeq7tVf1vgVVu9Z5VqdDwMAgMSMD3rs
UPFEjzG6F3U3qjil/HgtC2OZyhdNT1IMpFhIMZFi41tYvSsphipXUmylGEux
lmIuxV6zRusaE2Suu5nmHpR+96ZtTC3l8bSPB1h8H6daU4xqBbR2Kh1PGhe9
S3C54HXMnn/q7tRzUKpB0DlF5xddi6l6L3Edq+Wjyp9mXqq4gbldauODAIC+
IyommI5UnlTorlS+VPmkqq0SFMMollFMo9hGMU7PLaOcSbGTYijF0l0sjK0U
YynWUszV16qO69ukmK6PCbKNpe0nb0bNGfRs1ujNqDG1PmODzmb1tVqfnPPn
BcMs7MemujydH29lYT1C5Z00Z5TLnWbuqdxp+tPMQ02P6vxyDFGfKQBAdxH3
ebfFCNOTypWmL3VnmjmmzZkU61SeSTGQYiHFRIqNb2ZhrKSY6ZNrmjXaJGOC
TG+aY2nJHbZ7UHzmCuoEb5r+9PGmcudPS3Rv2sYG2eap9anVqrmD6FjS2C4a
Fx2Vc9J5QecHXV8pd9J1l16zVe5U/Z+6OwnlT1+H6oxZsH1mAAC9jS0W2GJG
nCt1XxK6M1VdVs8zKdapfkyKgRQLlTOjck2KrRRjlTfNXJNi8w5mr9FGzUtr
jgkiVyhv2O5BifOmzV2d5E3XvShqO6PG1Op9nFFjg1TOGeVNs1ZryznpPBhm
tXqtcqc+ZsjlTlvuSZj+1B2qe1R3aZRTAQD9iRkf9NihxxQVZ+J8qfdlupyp
6rMUC1V9lmIkxUpXrhlVo9W9qXLNuDFBeo02aiyt7s24sbTd6k3fMbVRY4Oa
rdW6ck69Xmvr6zTdqeq2V7Na3db0p8uhukdNl9qcasP8HAEAupe4z7stRugx
RI8tpitNX6q6rBr/Q7HM5Uy9T5NiI8VIipVxuWbSGq3PmKAk64cR3e7NpOui
JOnj9K3VunLOXayxXkvnB9UkbO7UxwqZfZ7vZvX5Z5RDda6z8L4YbJ8jAEB3
Evd5t8UIM45cy+yu1PNLM8dUzlRjgGzOVH2atvpsM7mmXqMdYM33bZreVH5R
zuw2byYZG+TyZtxanLZaLV3H+OacUfValzv1sUK23FP5U6/f6jmoYtTgWuZ2
qgvb5wgA0J34fu6vZY1+1D2p0HNL5UqbL1WOqY8BinKmqz7bTK6p12jj1txM
603XeCBFJ3tTuVPv43wOq7kzypu+tdq4nNNVr03iTjP3tPnTloPqHjVd6nKq
i2sBAD2D7+feFjP0nFJ3pZ5bxvmSYloSZ+5i9vpsXK6ZpEbr8qZyJhHVt9mJ
3rT5U39vcd5sZv4DW63WNq7WlXO66rV6XyedFy53qntUzNzT5k+bQ/Vc1HSp
6dQ4bJ8fAEB34vu5t8UM3ZF6Xqm70uZLW46pxgC5nEkxchcLY6arPuvKNc0a
rTmOVq/RJp3vIMv53LvZm3H3o+jjagdYY63WzDlt9Vofd+pjhdQ9KmbuqeZI
0P1pc6jiKgObU+OwfX4AAN2J7+fe5kbdkQrTlaYvVdwynanuNVFjgHycaavP
mrmma66DqLn1bPef9KI3dXdGebPZPk495zTXFYvLOePqteY4ITpPqP/b5k5b
7qnOQzMH1fNQxTsN3mXB/EwAAPoXW4ww44geY5QnzdzS5UuVY5rOpBioO1P1
aVLMjKrPxuWaA8y9bljavs0ob/rUZ/P0pk/OqbyZZlytK+fU+zmj6rW2cUK7
WK2/k84bdY+Kqtu6/GlzqM2jek6q56YuzM8HAKD3iYoJZvzQY4vuSZsro3xJ
MU6/10Tvz7SNA7qQueuzUf2a5ngg3Zu+42jTrlXdrd5splZrm6/WlnPqY2td
9Vq9r1PPO1XNls4XW93W5U+bQxWmS3Wf6rzdE/NzAwDoXnw/97aYoccU3ZEK
05VRvjTrsvoYID3PpJipnOmqz+pjaONyTXM8UDtqtN3izTT3o7hyTlc/p61e
G+VOPe+kc4POE1vd1uZP06GmR10uNZ2qcyUAAEhsMcIWS3RHmp40XWnzpa0u
S7GQYqItz7Q501afjerXdOWaae4/6WZvunJO05tJ5kCg6xHax7acUx9ba9Zr
bX2ddLxNd9J1lHKnK/c0/elyqM2jukt19kRg+3wAAHqbqJhgiyF6jNE96XKl
y5e2HFMfA2Q609anadZnbWNo9VyTYrqea1LMfz6LdmbS+zY72ZvN3seZRc4Z
Va81+zpt7tTH2ep9nnruafrT5VDTo7pLTafqXOGJ7XMDAOhOfD/3tphhxhUV
b3RPulxp86XKMfW+TOVMNQbI5Uxz/KytPptVrtmq+zbb4c00fZy2Wm2afk6z
XpvEnfo426jcU/mTiHKownSp7lPTqzrmZwEA0L/YYoQZR/QYoztSEeVKQvel
LcfUx80mcaZtLFCz/ZpEM+Nok+aanebNZmu1rnkQ9Ps5zXqt3tcZ5c7zWM2d
Ubmn7k8zB9UdanpUYfOpyRs9MT8zAIDuxfdz74obph8Vuid1V5q5pelLV46p
j5uNc6Y5n55en9Xv13TN4d5sjbZbvWm7jzPpuNqk93O66rVx7tTHCsXlnsqf
UQ4ldI8qTJ/qvN7CGwAAQGKLEbZYovtRoXuScLnS9KUrx1TOVGOA4pw5wKLr
syrXjHJmM+Nom5nLvVO8mbRWm6Sf0xwjpN/T6eNOfZxtXO6p/GnLQZVD9Vqu
Yherd6nNqTa/xmH7zAAAuhPfz70rbpjxZRerOVKhPKlcacstTV+6ckx93Kyv
M/V7NV1jgeJyzaxqtN3kzZ9k/jlnM/VaV19nnDttdVs999T9aeagtjxU96ie
k5pONd3qwvxMAAB6n10x2GKJHmv0GKR7UnelmVvafKnnmHpd1seZrj7NpPXZ
NLlmXt7UW9TfaWXOqbvTzDldfZ1x7tTv79Trti5/RjnU9KjuUt2nNq+6HAsA
ADquuGHGFz32qHikezLKlS5f6nVZ/f5MX2fa+jRd9520Mtdslyv1ltabpjt1
bzaTc0b1dbrcad7facs9bf50OVSv5SpMl+o+NXlNDOZnAgDQ+8TFBVc80WOO
7kiF8qTLlXG+VDmmeX9mnDNtfZppck2fNaq70ZtJxgfFja31dafe16m78wRW
P85WudPMPaP8GedQ06M6NqfaeDUAADiIih2mG3V0T8a50teXKsfUnanGzdqc
abvnxOVM3zG0WY8HalVr1ptR96S4+jnj6rU+44Rs7hxg9f48jfn5UzlUz0NN
j+ou1X2qO9XlVhcXAgD6Dt/4YMYVPebosUjFJ92Tel6pXOnjS/3eTD3HjHLm
i1m8M+Pqs65+zU6Z68DV4vpSo7yZpJ/Tt14bN07I15167mnzp+5QPQ81c1HT
pbpPbV61+RUAAKKwxRAzzugxSI9Nek6p55W6K22+dOWYA8zPmbZxQL712Wb6
NfO4Z9PVsvKmz9jaJPd0mvXatP4080+bQ02P2lxqc6rNrVGYnwcAQO/jGx9s
scWMP7Z8UnnS5kpbfpnGl0n6NF312aRjaLvJm82OD4oaI5TUnbo/fd1JmP50
5aDKoVEeNX2qO9WGeZ4DAICLqFiixxwzHtk8aXOlnlvafEkkyTFVXE7izKix
QFmPB+pEb2btzrhxQq57VJQ7ff3pykGVQ20e1V2q+1THPJdtnAMAABKfmGGL
NXos0mOU7knTlWZu6evLKGequOxyJtFKZ/ajN6P6Om3u1HNP3Z2u3NP0p16/
1XNQMw/VPaq7VPepzas2vybF9hkBAHQnaWKBLbaY8UePTXrM0j2pXKnnlno9
1vSlK8e0OVPF5bhxQISrPtvN3lSt1f2cvu5U/tTdaevztOWeUf6McqjNo7pL
TZ+aTjUxz3EAAIgjKqaY8UePTXrM0j0Z5cooX9pyTFtfZlyemZUzO6lf02xp
+zlb6c64um2UP/X6rcuhhOlR3aWmT21edWGe7wAAoPCJIbbYo8cmPWbpniRs
rtTrsVG+jKvLdqozO92bPvXaLNwZVbd11W5t/Z8uh9o8SpxkcLKFUzyxnfsA
gP7EN27YYo4ZlwaY25NRrtTrsa6abFRdNitndmN9VjWf95I253S5Ux8n5ONO
V+4Z5U+XQ3WPulxq+lTHPId9sH0WAAC9TTOxYsCBHptsjjRrsKYro3zpyjGT
ODNuHFArc812elO1tDlns+605Z2u8UK+/vRxqM2jpktNn7rc6ssAAKDvaCZW
uOKOGZ/02GV6Ms6Vvr50jf9Jmmc260wfb+bV4t6XbVui3BlVr3W503Z/py33
jPKnj0N1j7pcanOqy62+uD4LAIDepdl4YYs9ZnyyOVL3ZJwrfXxpyzFt95rY
nJlkLj2XM7vZmy53+uScSfLOqLqtrz99HGp61HSp6VOXV+OwnfsAgP4kafyw
xSAzTplxTI9xca708aVPXdY3z2xFrtnp3szLnUn9GedQ3aOmS20+dXk1Ctv5
DgAARJJY4opHZtzSY5oe61yuTOrLTnVmnt5klveSRb22GXem8afNobZars2l
pk9tTrXhOq8BAMAXn1hjxiczfpnxzfSkzZVpfNlKZ3Z6rqmar9tbkXf65J4+
/nQ51OVRm0ttPo1yKwAAZE1UDLLFLFs+qXvS5UofXybty2xXntkJ3lStHXmn
73ghX38mdajpUdOlJrbzNIqocx4A0N8kjSdRscmMY2ac83Wlry+TjP/p5TzT
bGlyzjh3JqnbJvGnLQeN86jNpTaf2og6jwEAIA0+McgWu8z4ZvOkK7dM4suk
ddmsndmJ3qSWZb22GXf6+NPW/xmVh9o86vJplFd98DnvAQD9SbNxxRWnbDHN
5UnTlbb+Sx9fpnFmN48DimpZ93XGuTMrf8Y51OVSl0993AoAAK0iLi7ZYpkt
5rlcmaUv2+HMTvYmtbTuTJt7+vozyqE2j7pc6vJpM44FAIBm8Y1Drjhmi3lm
XHS50teXWeWYveRM1dJ6M+vc0/RnnENtHnW5NM6pcfie6wAAoGg23kTFMFvM
M+NilCtNX7Yqx+yV+qyttSvvjPNnMw61edTlUh+nJqXZzwQAoPfIMrZExTBb
zLPFxiSu9PFlv+eZZmuVO31yTx9/2hyaxKO+Tk1Dlp8ZAEB30Kp4EhfHfDxp
c6WPL31zzH52JrUk25hF3dbXn0kc6vJoUq9mSas+UwCA9tPO2OETy1xx0MeV
vr5sZV22271JrdXuTOLPJA6Nc2kSp6ahnZ8pAEBn0Oq4EhfXomKiryuT+BLO
bGxZujOpP5M61MelPj5NQqs/IwCA3iHL2BMX56JiZBJXNuvLfnWmakm3vRX+
bNahvi5th2MBACCKZuOUTwxM6sp2+rLXnKlaK9wZ5c9mHZrEpVm5FQAAWkUz
sSwuPjbjSh9fwpmNrZn9kYU/4xzq49G0TgUAgE4iScyLi59x8bdVvux1Z6rW
Snf6+NPHoc24FK4FAORFlrHKNz76xFrfuA1nxrdm91HW/kzq0VY5FQAA2kkz
MS9JTG21L/vNmXprhz+b8WizLk1D3p8jAEDn0u54lDReJo3H8GW6lmb/NePP
Zhyat1MBACBr0sbBZmJv2niPVmtp92Uah2bhUXgXANBu2h23mo2vWcV3NHvL
av+mcWiePgUAgLzJInZmGcvR/FqW+zwrh8KtAIBup5WxMOu4jdZcy/o4tMOj
AADQD7QqPqNl01p1fOBSAACIpx0xGK01rR3HDk4FAPQjecVXtPa0vI4vXAsA
6Abyjn/wZWe3vI89AAAAP9A6r+V9TgAAAKgHrbta3ucLAAD0G2i92fI+rwAA
oNtBQ1Mt73MRAAA6BTS0VrW8z20AAIgDDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0N
DQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDQ0NDS1V+/9lXZkX
    "], {{0, 241}, {462, 0}}, {0, 
    255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> ColorProfileData[CompressedData["
1:eJyVlwdUU1kax+97L73QAhGQEnoTpAgEkBJ6KIJ0sBGSkIQSQgoIdmVwBMeC
iAhWdAREwbEAMqiIBdsg2PuADCrqOliwobIvsoSd3bO7Z79z7n2//HPfd797
c+85/5ik5cSkwwAAGQHtYjj5LKmUUxCrgX6IF8tEAjGfxxbL+QK+lJkGoeIN
CtoByg2ORJIFo6OyxXJpTIg/Iyk5hYHvByQAAzpAgDGHK5OwoqMjlKMnnn+N
97eAMiG4bq/M9e/f/9fQ5PFlXACgaJTTeDJuNspH0dbOlUjlACASVDfLl0uU
XI6ythQtEOU6JQvGuV3JaePc831MXEwAyn8AQKBwOFIBAORhVGfkcQVoHopy
TxzFPJEYZT+UfbhCDg/l5ShPy87OUfIBlK3T/imP4C8501Q5ORyBisfX8j0I
gSKZJItT8H9ux/+O7CzFxBxmaKMIpaExyvmU+5aZE65icdqsqAkW8cZrUrJQ
ERo/wVxZQMoE8ziB4ROsyIxnTTBHOvluoTAucYKlOTGq/OKsWRGq/Hy2ivmy
oNgJThcFs1X1yNlxE5wnSpg1wbLM2PDJuQJUulQRo6o5WzZZT7o0WLVeoYit
Gi8XxoWq1siZrIEvS1LVxuMHBql0cbxqjETur8opyYqeXEtWiEqX5cWq3pWj
h22CMzhh0ZN5olVrBCIQCTiAK+cvlCuLD8iRFEhFAqGcwUJvDJ/BFnMdpjGc
HZ3cAVDev/Gf9y39+72C6JcmtdwOADxKUFEwqXHQc3D8CQC095Oa2Rv0aGwA
4EQPVyHNG9cwyg6L3mx1oA30gBF6fqyBPXAGbsAL+IEgEAaiQBxIBvMBFwhB
NpCCfLAYrADFoBRsAJtBFdgJ9oA6cBAcBi2gHZwG58Fl0ANugvugDwyCF2AY
vAejEAThISpEg/QgY8gCsoOcISbkAwVBEVAMlAylQgJIDCmgxdAqqBQqg6qg
3VA99At0HDoNXYR6obtQPzQEvYE+wwhMgbVhQ9gSng4zYRYcDsfB82ABnAsX
wkXwOrgSroEPwM3wafgyfBPug1/AIwhAyAgdMUHsESYSgEQhKUg6IkWWIiVI
BVKDNCJtSBdyHelDXiKfMDgMDcPA2GO8MKGYeAwXk4tZilmLqcLUYZoxZzHX
Mf2YYcw3LBVrgLXDemLZ2CSsAJuPLcZWYPdhj2HPYW9iB7HvcTgcHWeFc8eF
4pJxGbhFuLW47bgmXAeuFzeAG8Hj8Xp4O7w3PgrPwcvxxfit+AP4U/hr+EH8
RwKZYExwJgQTUghiwkpCBWE/4SThGuEpYZSoQbQgehKjiDxiAXE9cS+xjXiV
OEgcJWmSrEjepDhSBmkFqZLUSDpHekB6SyaTTcke5NlkEXk5uZJ8iHyB3E/+
RNGi2FICKHMpCso6Si2lg3KX8pZKpVpS/agpVDl1HbWeeob6iPpRjabmoMZW
46ktU6tWa1a7pvZKnahuoc5Sn69eqF6hfkT9qvpLDaKGpUaABkdjqUa1xnGN
2xojmjRNJ80ozWzNtZr7NS9qPtPCa1lqBWnxtIq09mid0RqgITQzWgCNS1tF
20s7RxvUxmlbabO1M7RLtQ9qd2sP62jpzNBJ0FmoU61zQqePjtAt6Wx6Fn09
/TD9Fv3zFMMprCn8KWumNE65NuWD7lRdP12+boluk+5N3c96DL0gvUy9jXot
eg/1Mfq2+rP18/V36J/TfzlVe6rXVO7UkqmHp94zgA1sDWIMFhnsMbhiMGJo
ZBhiKDHcanjG8KUR3cjPKMOo3Oik0ZAxzdjHWGRcbnzK+DlDh8FiZDEqGWcZ
wyYGJqEmCpPdJt0mo6ZWpvGmK02bTB+akcyYZulm5WadZsPmxuaR5ovNG8zv
WRAtmBZCiy0WXRYfLK0sEy1XW7ZYPrPStWJbFVo1WD2wplr7Wuda11jfsMHZ
MG0ybbbb9NjCtq62Qttq26t2sJ2bnchuu13vNOw0j2niaTXTbttT7Fn2efYN
9v0OdIcIh5UOLQ6vpptPT5m+cXrX9G+Oro5Zjnsd7ztpOYU5rXRqc3rjbOvM
da52vuFCdQl2WebS6vJ6ht0M/owdM+640lwjXVe7drp+dXN3k7o1ug25m7un
um9zv83UZkYz1zIveGA9/D2WebR7fPJ085R7Hvb808veK9Nrv9ezmVYz+TP3
zhzwNvXmeO/27vNh+KT67PLp8zXx5fjW+D72M/Pj+e3ze8qyYWWwDrBe+Tv6
S/2P+X8I8AxYEtARiASGBJYEdgdpBcUHVQU9CjYNFgQ3BA+HuIYsCukIxYaG
h24Mvc02ZHPZ9ezhMPewJWFnwynhseFV4Y8jbCOkEW2RcGRY5KbIB7MsZoln
tUSBKHbUpqiH0VbRudG/zsbNjp5dPftJjFPM4piuWFrsgtj9se/j/OPWx92P
t45XxHcmqCfMTahP+JAYmFiW2Jc0PWlJ0uVk/WRRcmsKPiUhZV/KyJygOZvn
DM51nVs899Y8q3kL512crz8/a/6JBeoLOAuOpGJTE1P3p37hRHFqOCNp7LRt
acPcAO4W7gueH6+cN8T35pfxn6Z7p5elPxN4CzYJhoS+wgrhS1GAqEr0OiM0
Y2fGh8yozNrMsazErKZsQnZq9nGxljhTfDbHKGdhTq/ETlIs6cv1zN2cOywN
l+6TQbJ5sla5Nmp0riisFT8o+vN88qrzPuYn5B9ZqLlQvPBKgW3BmoKnhcGF
Py/CLOIu6lxssnjF4v4lrCW7l0JL05Z2LjNbVrRscHnI8roVpBWZK35b6biy
bOW7VYmr2ooMi5YXDfwQ8kNDsVqxtPj2aq/VO3/E/Cj6sXuNy5qta76V8Eou
lTqWVpR+Wctde+knp58qfxpbl76ue73b+h0bcBvEG25t9N1YV6ZZVlg2sCly
U3M5o7yk/N3mBZsvVsyo2LmFtEWxpa8yorJ1q/nWDVu/VAmrblb7VzdtM9i2
ZtuH7bzt13b47WjcabizdOfnXaJdd3aH7G6usayp2IPbk7fnyd6EvV0/M3+u
36e/r3Tf11pxbV9dTN3Zevf6+v0G+9c3wA2KhqEDcw/0HAw82Npo37i7id5U
eggcUhx6/kvqL7cOhx/uPMI80njU4ui2Y7RjJc1Qc0HzcIuwpa81ubX3eNjx
zjavtmO/Ovxa227SXn1C58T6k6STRSfHThWeGumQdLw8LTg90Lmg8/6ZpDM3
zs4+230u/NyF88Hnz3Sxuk5d8L7QftHz4vFLzEstl90uN19xvXLsN9ffjnW7
dTdfdb/a2uPR09Y7s/fkNd9rp68HXj9/g33j8s1ZN3tvxd+6c3vu7b47vDvP
7mbdfX0v797o/eUPsA9KHmo8rHhk8Kjmd5vfm/rc+k70B/ZfeRz7+P4Ad+DF
H7I/vgwWPaE+qXhq/LT+mfOz9qHgoZ7nc54PvpC8GH1Z/DfNv217Zf3q6J9+
f14ZThoefC19PfZm7Vu9t7XvZrzrHIkeefQ++/3oh5KPeh/rPjE/dX1O/Px0
NP8L/kvlV5uvbd/Cvz0Yyx4bk3CknO9WAEEbnJ4OwJtaAKjJqHdAfTNpzrg/
/h7QuKf/TuA/8biH/h5uANT6oX81lgMQgXqUHWizQJmCPpWWKM4PwC4uqvaP
kKW7OI/noqAuE/txbOytIQD4NgC+SsfGRrePjX3dixZ7F4CO3HFfrgwc6t93
4ZV00coI/Gv8Hd9fEug=
      "], "RGB", "XYZ"], Interleaving -> True, 
    MetaInformation -> 
    Association[
     "Comments" -> 
      Association[
       "XML:com.adobe.xmp" -> 
        "<x:xmpmeta xmlns:x=adobe:ns:meta/ x:xmptk=XMP Core 5.4.0> <rdf:RDF \
xmlns:rdf=http://www.w3.org/1999/02/22-rdf-syntax-ns#><rdf:Description \
rdf:about=xmlns:exif=http://ns.adobe.com/exif/1.0/> \
<exif:PixelXDimension>462</exif:PixelXDimension> \
<exif:PixelYDimension>241</exif:PixelYDimension></rdf:Description> \
</rdf:RDF></x:xmpmeta>"]]],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSizeRaw->{462, 241},
  PlotRange->{{0, 462}, {0, 241}}]], "Input",
 CellID->11821617,ExpressionUUID->"a41b4962-0f4a-4d1d-826c-dedb2ed50a9c"],

Cell["\<\
The same data can be entered in a dialogue window by executing\
\>", "ExampleText",
 CellChangeTimes->{{3.740727338569479*^9, 3.7407273487610826`*^9}, {
  3.740727404680081*^9, 3.740727423004692*^9}},
 CellID->19159134,ExpressionUUID->"9cb9f11c-e04e-485a-9495-f9fc99331e6e"],

Cell[BoxData[
 RowBox[{"ImportCrystalData", "[", "]"}]], "Input",
 CellChangeTimes->{{3.740727424903109*^9, 3.740727428129957*^9}},
 CellID->791445205,ExpressionUUID->"dba67cf3-6e58-4805-af9d-32423b2f395b"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztvQ3cHVV57r16Tt/3rT2e2u+jx9pGK19B47dFjEJs1UaUUCVVamhAJUa0
koofyakaSWtsrKHmF9FEq7E2sacJgqlpYyqiBiSEkJJCChECxRoCBsU0VqGG
ZN59zZ5rP/eznjVfe8/s2R/X/ftde8+sWTOz5uv+z73Wmpknv+GSVy/4b865
S3+m9fPqC98z6x3vuHDJa36+NTL37Ze+5c1vv+hNs9/+zovefNE7TnvDf28l
3v5Tzn2upZ92MplMJpPJZDKZTCaTyWQymUwmk8lkMplMJpPJZDKZTCaTyWRB
+ylJkqQcyWRlrelzVpKk8ZVsvKzp802SJKmoZMNvTZ9DkiRJVUs22Nb0+SFJ
ktRvyZq3ps8BSZKkQZGsf9b0sYb+myRJUoqa9k9iUn0mxkiSNCoSj4bLxBtJ
ksZF4tFg2bBz579LkjRyGnYuyYrZILKn6XNfkqTh1SAySRa2ptnT9LkqSdL4
qWkmySasCfZUcQ79tCRJUqKmuCQW9Wb95I8YI0lS06qTS+JReesHf/rBnP9H
kqSxVz/Y1A8ejZPVyZ8quVP3ufv/SpI0MBoUVlXFJLEo3ZrgT9XMafp6kSRp
cFU1m5rg0SjbIPGnDtb8f5IkjY3qYNQg8WgUrWoGlWVPL8zp9Xz9GUmShlZ1
86obLnXLo3FlUdX1cFXwpxfmVHl+P0aSpIFRP9lVlktV8mgc6+ma4E8Z9nTL
mzqvh5+VJKk2NcmyslwqyqS6eTSsVncMVIQ/Wbwpw5ai5/f/kCRpbNQr94pw
KotJRXk0zvV0VTCoaAyUxh8cRxxvnDOPbel/tvRznh4X0M+n6BdK6BclSRo5
lfEBaX4k5HN8vwRfBZ8F3wUfZpmUx6OysdGocqguBpXhD+4tcCx/uaUntjSt
pd9s6alGJ3g6MaCTMnRyDzpFkqSBUy/XdJavCPkW3/9Y3wRfNc21fRd8GHwZ
46VeeDQuLGqCQX7922NaetxjHvOYJ339619/93333ffl//zP/3zgxz/+cSRJ
kjQMgs+C74IPgy9z7bjpMS67vk4sqodBZduAcM/wczhue/fuveLIkSPRD37w
g+h73/te9OCDD0qSJA2F4LPgu+DD4MsSFv2cmxoXdRMbjTKL+smgUB8EHB+0
C/7K1772tfccPny48XNJkiSpV8GXwafBtyU+zvZp6DY26pVFg2h1MiirHcjv
/4Z61Cd9+9vf/vKhQ4ciSZKkURB8Gnybm2gr8vvXFYmNRplF/WJQWj9s2+8a
dahPaR23B1oWSZIkjYLg0+Db3EQ7URaLsmKjUWVRUwzyn/tBvIp+kSfguN1/
//2S1LhuuOGGxssgDb/g01y7X93Pu8nPJfk86jeLBsF6iYXKMigtBiKD0Nce
/fZPOnjwYCQV0x133BF94QtfQNyfme/mm2+OzjnnnNR8edMHTf0oL/Yt1vHN
b34zOP2f//mfo0984hPRRz7ykeiv/uqv4vGm9wv2B8rMsuzcuTP6h3/4h0na
u3dv4+UcR7l2H/BfcBPP0aaxKK2eriyLhiUm6jeDQu8/4HPLeO4Lz5qdfODA
gUgqplWrVsV+55/+6Z8y8910001xvrvvvrur6f3Q+vXrYxXJm1Xef/u3f4un
IU+3ZXn/+98fL4N617veFS+X07du3dqZ9vGPf7wzfOWVV1a+X3bv3h0v264/
Tdz2HTt2dPap3Q7qs5/9bKF1V7EvpbZc+zmlX0x8nf++htB7GfrFoiatKQb5
/OF7NnBsfqmlU77zne9EUr7uueeeaM6cObHe9773BfPg/hj/iB+QD/OUmd5P
/c3f/E2sInlxn59WXu4X5OmmHF//+tfj+bdt2xb/f+lLX4r///Zv/3bS8i++
+OLO+rEfcQyQzn1albK2NW/bsT9RTk7fv39/9Gd/9mdxnq9+9aullyd1L9d+
1vaX3MS7Fuz7hfLq6UaRRYPIIL4/Yfq///u/R1K+rrnmmthHoK4F/7fffntn
2p49e6K3vOUtcTr+4UMxjPihyHRfX/va1zrMgzCO9BtvvDF65zvfGV1xxRVx
OuqwsLy///u/78y7b9++eBry3nbbbR1/Td+OPPSN1K5du+L0z33uc500rAf1
TVxvqLwYt8vBupCOfWPX+5nPfCZ1v3KdGMY68Y/8V111VTzM/Y19aOfDtrHs
KAf2w8aNGzv7OGu/cB0s34c//OHorrvu6mwnheWFjgfKZLefy8S2YL3+NiKN
+yZtP2ftS3u8PvnJT0b33ntv49fDoAu+zU28X0EsqoZDVTDosW7yu+PQv/5U
nNNSvt773vdGf/qnfxoPn3322dHf/d3fxcO4h8X4pZdeGrezb9myJR6H4Nvy
pvvrQR5M+/SnPx3HTfjHOIY5bcWKFXEc8a1vfStas2ZNtHDhws78XD7Wi3Wi
zP/yL/8S120hHcuA37v88stjYRzlQLsXpuO+HevC9mJ+W6ZQeZEf0zA/7uPt
9mIcdZgYRzlD+9VuL/5RVjv9r//6rydtX0goF/cp1odlZu0XbivyYVsxjH2B
5eC4cj+gLNjHGEc5sN82bNgQj4MPXC+Wk1VW7qO8/ezvS6RheRDGccwx/Ytf
/GLj18OgC74t8XH2HXTkUZUsGhUOlYmFyjLIj4HIIPRn/NWWnoY6aSlbuPfG
9b99+/Z4HPX9GMcw0jCM+23mR7sF0u68887c6f66Vq9eHfslm/aP//iPcRm4
LDsNvhFp+Mc45kU7Pobhv5YtWxbP668H2wDZNJQH9+X4xzpZRsRdaeVFfkxD
nrT9YZcV2r+INf/kT/6kwxIw4V//9V875fT3hy8s1x6fvP2CdhxMQxyD8nM7
8M9t5Tincb8gLuO6uF5uO8qKfe6Xz99/afvZ35d23cyP4+kfN2mq4NsSH8d3
o9L/+bFRNyyqIibqp3UTCxWpj+uVQejP+L9aero9z6WwUD/zqle9KnrHO94R
XXbZZfEwhPvg66+/Ph6G32V+pDMtb7q/LqSjnSFUjm984xvRm9/85inpSMM8
uEfH/LjPtvlZXvSz4Do/9alPRevWressg+X0hWWGtoFCGqYhj11O0e31t/3L
X/5yp6xIQxlD25xVhrz9gvEPfehDnW3EcUUZQ+XHv81LIZ+/3rSycpvs+RDa
z6Ht4LlnlXZ+SBOCb0t8HN/bXQWLytTPDVJMVEd9XBUMQn/Gx7c0A22pUrZw
7S9fvjyu20KdCP6Rhr5bqCvBMPodMz/yMC1vur8u9Ev+4z/+40lp1113XRwf
cFn+PFge/N/nP//54HTMizofTEMepKF9BOVnHqwT28gycRsxjvWnlRfLxjTc
w2M8tL12Wf784A22GcNLlizplA3bY+dFGex86NeGPIhpsNxQnrz9gvgC7UtY
L9fHbcU0e6yQz24v8vnrRbn9Y4flIM8HPvCB3P3s70uOg0VcHsqK9TR9TQy6
4NsSH8fvStTNokGOiaqKhbK+2ZDHIPv9IDII/Rmf0NIzUGctpQs+4ZWvfGX8
b9PRToD0W2+9Nf6Hn7nlllviOiaMQ7jHxfMjWdP99XE6lo9lo70C46gHQns5
hv15sBwuE36T6RhHnwaUAX2LMY7lYRraYzCOdLSBwL+hjIgZsC4uD/NyvRgO
7SNMW7t2bVxeloXL4rx/8Rd/EZwX9VKY/tGPfrSTD/+ou2SeBQsWxGnoU4d1
cJncF9zHSC+yX7gOlA/zggvgA6Zx27EuTEP/Pe5/5EdejnO9GMa8aB/iOMR5
IfTFRp6s/Zy2L3kuYJ9gHOtp+roYdMG3JT6O30KyLPK/W5TFol7q54aBQ1XV
x3XDIPRn/N8tPRM+SEoX6uJx7fvpuB9HOu7/IfoT6GMf+1jHtyBv3nRfmzZt
mpQf/dyQjpjmoosuCs7DZcJfMW3z5s2TlvOXf/mXnWm4h2c6lmvHmZdl5LS0
8nIfcT+R3RT6e+F+P20fY/9wfdg+xAh2OtaLZdhl4pkjxCicjjSUs8h+wbFb
tGhRZ1lYJ+IqTEM5Fy9eHKejrwOWjXXZbeFx53rZZ8TuBwp98bC+0H7393No
X6Iti+MoM5aHdq6mr4tBF3xb4uN+yXXPorrr5+q2XtuFytbH+f3i8hjEb949
C3XSUjVCf4BeplvhXhj9tdhukKf3vOc9cT+60DQsp+i6kbfK/VFmm+Hjs6Yj
nqSKLjNvvxTd3rLbUuV+xjlQ5brHQfBtbuLbeEVZZPvRVVU/12Q7UVXtQlnf
DspiUKg9yDII/Rl/raXn4P5PGl6hL8JZZ50VC23tTZdnUKT9Mt6Cb0t83K+4
bBb57UVpLAq9i27Q24n6EQv59XFlGIT+jL/e0nNxryUNr9DucPXVV8f1Sk2X
ZZCk/TLegm9LfNyvuu5Y1Ev93DBwqGzfhG7ahPIYhH4kv9HS89AnR5IkaZQE
35b4uMe74izqpa1oENuJ6oqFirQJ5TEIferRj2RaS89H+6gkSdIoCb4t8XFP
SHxeWRbl1c9VGRPVZVW3CxWtj3ucm8yhEINwf4B+JE9u6TS8x0uSJGmUBN+W
+Lj/nfi8EIsshx7neq+f67adqC7rRyxUtD7OZxDuD9CP5CktveB73/teJEmS
NEqCb0t83BMTn+ezqGz9XJ0xUV3WC4e6iYXy6uMsg3B/gH4kT23p9KbPF0mS
pKoF35b4uF9LfJ5lUdn6uapiomHnUCgWCvWPy+qXYBmEfiT4bu7Mps8XSZKk
qgXflvi4X3dTWZTWVpTXf65ITNQ0h+roq91LLOT3S8BxQIz6JNfuR3JiSy9q
+nyRJEmqWvBtiY/7jcTnPdFNsKhs/VxWTDRofbir4FDZWIjPBIfq4/x+CTgO
jIWmufb321/c9PkiSZJUteDbEh83zU3ERGSRbSsK1c+lvWuhzpioCQ6V7Z9Q
NBZKq48jgxgLoR8Jvpt7RtPniyRJUtWCb0t83JPdRExEFqXVz5WNibrprzDo
HCrTR8720y5SH2cZNM21+5Hgu7mzmj5fJEmSqhZ8W+LjnpL4PMuiovVz9LPd
9J0bRA7VVSfncygtFsL+Z30c7g9+07W/m/uSps8XSZKkqgXflvi430x83rTE
B7KtKBQTFW0nqrNurlcryqAiHPL7J6S9O6FsLITjgfsD9GfEd3N/u+nzRZIk
qWrBtyU+7qmJz/Pr54rERHnvWMjqr9DUM6119pMrEwv5fRNsLITjgfsD9CPB
d3N/p+nzRZIkqWrBtyU+7sTE57F+zsZEts9CNzFRHf3merU66uTy+iek9ZHz
nxViLITjgfsD9CPB9wpf1vT5IhUXvleH73hK0igJ53UNHHpZ4uNOSnwe6+d+
w019piit71yv/RVGiUOhd/ik9U/w393jx0I4Hni262TX/l7hy5v2rVI5Dslk
o2Y1cejliY87OfF5rJ+b5sLtRIyJ0vorpL3rZ1Q4lPcenzJ9tbPahXA/gOOB
OBX9GfG9wt9t2rdK4pBsvK0mDv1u4uNOSXzeCW5yTBRqJyrbhzvvPT+DyqEq
+8mF+if4zwuFYiHEqejP+OyWZjftWyVxSDbeVhOHZic+bnri80IxUdrzREXr
5urov92r1cGhIv3k/L7a/vt7/FgIcSr6M+K7ua8oelx37NgRrV27Nv7G5QMP
PNAXv7tly5Z4fU37/0GROCQbRauJQ69IfNypic9Li4lsf4W0Ptxp/ebGgUN+
LPRYV65Ozu8jx1gIcSr6M+K7uWcVOaZLly7FcY1WrlwZLVy4MB7et29fT+fJ
9u3bo+XLl+euF2ra/w+K0ji0f//+aMOGDdGmTZuiI0eO9NmLyGS9WU0cOivx
cU9LfB5jIr/vXJm6OfrhKtqI+smhKp4bKttPLq1/AmMhxKnoz4jv5r4y73ju
2rUr5o5NW7duXRwbgSXz58+Pp4MpM2fO7PBpz5490ezZs+Ph1atXx3kgxDeY
j+OY38+D5adxCPOChVg28mI+pGO9WD/SMA2++cCBA9HcuXM7ZUTexYsXT1ov
hG3huq+99trGeVOGQ6tWrYrLvWbNmmjZsmXx8K233tqzbzh69Gg0Z86cnpcj
k+VZTRx6ZeLjnp74PMZEWf0Vuuk318tzRE1zqNfnhrqpk2MshDh1hmt/N/dV
eccTdWPw3aFp8Nku8d3w+YsWLYp9OqaBS9C9994b58F0MA1cwPSNGzfG+VHH
h2lgCNiRfNM3TgtxiOvEsshIrAOM4bqxXMRuWAamYxvARZewiGXyl4G6R+cx
d5Dkc4jbYe2OO+6I08CRefPmRQ8//HCcvnv37phVHHYJd5csWRKngV0LFiyI
0z7ykY90pkNYBpY1Y8aMaNasWZWxTiaD1cShVyU+bkbi8/yYqEzdXFXPEQ06
h8r0Uch7djXUP8HGQohTcWx+q6Wz844n4pcsDpErEPz49OnTeR7ETCELEMNs
27Zt0ryWMYhnEAeBHy7hQhqHGGdBWB/ykpngDGIdy0CbF+XhMJbFOAwMY1wE
NjXNnCIcQmyIGMg3bAPq58AN1tPdeOONnbzgDTgCViEv2EU24R/cwb6z8z/0
0ENxOsrgEjbJZFVYTRw6O/FxMxKflxUTsW4u65nWsn0VRoFDfE4q672m3dbJ
4Zjg+S58v31O3vFkHZpNAzPgq8EVnxPI688D3w8fD99PTtl5GauAHYiTXAaH
/HWSQ2APYqr169fH3CSHuD6fWS6J47AscA3rxbzgLuKypplThEMYX7FixZTr
2uVwCAzZunVrzH3kAXsgxDw05ME0a+QW9o9MVpXVxKE5iY97hsvnUFbdXNZ7
T7OeZx0mDnX7Lp+s/tp5dXKoL8XzXThG5+QdT9SbOdNmwxgDXAET/FiJ8Qzz
gzGoJ8Mw/JdL6twwL2IkssUl3GI9WVq9nL9OssWZth0bD+VxCDEU82BbsWzG
TIMmn0OMYWCHDh2K+Y+4xSXxSohDZAnq48Ai1LNhOZhumUaOWUN7EfpDyGRV
Wk0cOifxcc9MfF6Rurm0/tu9vuNnkDhUVR+FNA5lPbvq18nh+a4XtPR7RY4p
200o8sOvW4PYvsOYAr6dfQpcwi/LG0yD3wcLMI6YhrwA0/w+df46kR95wT2u
A3WFmI/tTn5eMgl+G8PgJOcd5P55PofIFLAB3OE2YHtg4AhYA0NdHPo0gC8u
4RTnJ4dsHR/z0bAOMIvrlcmqspo49HuJj3uWm1o3l/VMa50cKtJnrlfrlkNl
36PQa9sQ4lQcm9NdQQ5RYAv9eJpQv2V9PwUm9Ou5o2406OULcQjGGNMK7T28
vpkGhoBDMMRCNp31cjYeAmvAMZcwi/0TKPVTkFVlNXLo9MTXFamby2sj6ua9
CqPKoay2IezDUNuQXyeHY4LnjF/Y0qurPPZs80ddXNM+exSV9Rwr+xEgbiFv
ZLJhsJo49OrExz078Xl+3VyojSjtvadF+iqMA4f4vfQifRQQZ05z6f21UV+K
54xxjF7TtG+VquGQTDasVhOHXpP4uOckPi+t//Y0N7WNKItDfJ512DnUTZ/t
tPcopHHI76Ng24bIoZlOHBoqiUOyUbQaOTTTTeYQ6+by+ipk9ZlL41A3feYG
mUP2m0NZ79gOPb/qf2sorW0I77vAMTq3ad8qiUOy8baaOHRu4uOe69LbiPxv
EoWeZ8169/YocKjIt+/y+soV7aNg24bIoRe1NLdp3yqJQ7Lxtpo4NDfxcZZD
bCMq01chq89cN9/EGyYO5fXZLtNXzn9uCO12eO/Si504NFQSh2SjaDVy6MWJ
r3u2m/ocUdk+c0X7bo8Dh8r22Q71UbAc+v2mfaskDsnG22ri0O+7qRzy+yrU
0Xd7XDlkv/XAtiHsW/87D7aPAt7/Jw4NmXC9Wl1zzTWSNJTyz+UaOfR8N7Wv
gu0z9xQ30UaU9g2IceFQN8+wdtNXDvWk5NAZLb22ad8qSZJUteDbEh9HDvnv
VSjTZ67K7z8MOoey3rNt+8pZDuW9Vy7UV04ckiRppOXCHPL7zBV5z5z/3m2+
7zSv77Y4NJVDfl85vA/9TCcOSZI0gnJtDp2Z+Dq/z5w41DuHir5n2//+Kt/n
Yzn0uqbPF0mSpKoF3+Ymc8i+3yftGaKs926LQ8U5NM21290sh/z3yolDkiSN
tFw2h+wzRL/pJvrMiUNhDqV9/y7tW+DTXPozrLbPNr7LcaYTh4ZODz74YHTw
4MHozjvvjN8ne9NNN0U7d+4cK71sxbHo5R8+Hv8X1XkfOxp96Is/iq7be1j7
cwD2e91yExw6zYWfIQo9y5r2jfCs7+GNC4eKvNOn7DOsODazWjqvab8qlRN8
Jr65gO88HT58uOlHPxqxN607NkkXffbYlDRfF3z6WPTaj7fyfvqRaPtth7U/
u7Aq93vdgm9LfFwah4o8y5r3bh9xqByH7LND4tAQC/ft4/7tnws/czy6sOXf
qAvMcF76uVccjz541Y+1P7uwKvd73XJTORR677Y41B2Hsr7DWuRdCuLQkOuW
W26JvzU0znb+p44nOhbN++Sx+L+tdno77XgnHePUeWuPRXM/+qj2ZxdW5X6v
W64Yh/LeqZD3XVZxqDiH/HcpiENDrBtuuKFpd9S4ve4Tx6Pz1kzodZ84Fqe1
dayj9rTjk8ahF112XPuzC6tyv9ctl80h+04Fcag3Dvnv9MnjEJ9hxTHBd9tf
4gpyCN/Lxve+165dG+3atatxXzzOuu6665p2R43buVdE0WuuaP939LH2/0ev
iaJHj7X/z/XzJHrh+49rf3ZhVe73uuXaHHpJ4uvIIftOhTwO2Xf7iEPVcwjP
Fxfm0L333ht/63vRokXRypUr42HwqGl/PK7avn17pq9AHdO6deuiO+64o5O2
e/fu+HvhmzZt6mjr1q2T5tu8eXO0YMGCWHnraNrOWRVFZ6+a+Ofwn385io4f
j6J/f6j9j3FOO8fkP+29xwvtT+wjf58dPXp0Uh68G437Dfs4ZNi3/v7G8Vmy
ZEk8H46Xv9zQcWzaqtzvdctN5lDo3T7iUH0c4jOsRTn0B3nHc9u2bTF7OA4u
Ie3AgQPR/Pnzo6VLl8bTZ8+eHU9DntWrV8dpEK4lzguWIW369OmduGr//v3R
zJkz4/SFCxcGy0D+YR1YJ3wHhGGkL1++fNLyIS4f81577bXxMMo8d+7ceBjr
suXcsWNH44zplUPgDbdnxYoVnfRVq1Z10qlZs2Z1pi9btqxzrzFnzpx4GH53
UO0Vlydamag1/P7N7fvxLbdG0VmXt/8xvvTvJ/LNTvT8JVGh/Tljxowp+w0i
M7hfwRKeeximHTlyJN7PSMeyaDxOmAYWYRj73Z/uH8emrcr93gcO/YErziE+
yyoOVcuh0Lu2u+IQfLdLrgn4bfRvtelIwzD8OoRhcAV8QV7kQRp4AI5geP36
9R22IY2sAlf8WAt+AnmxLLACw0gDWzCMfywTLOLyUYfI5S9evDjmJhkKBmIY
ZcT6kB/rZ/5BV5rfxP52iT+Dz4OPpMGXpfmzhx9+OJ7P3svPmzdvkt8cNPud
1qa8dMXEP3S05fv+qRU6vPTD7fGXtbTtX6PoJ49O5GH+57y7GIewX2xfOp6L
ZLTzOLFmzZo4DfwBq5xhvuU+jpEdR7yEfIcOHco8jk1blft9gDhk3+0jDtXD
obR3nBbmEJkDXw0/75J6OXIIbUfIg2cAXeLL9+3bF+dnHMO6PVzHXCbSuAww
BMsEx7AOu25MY7wDIQ/YAzG2Sc67ScvnetM45LwYiPmb5ky3HMI9NO/F4eOs
/8I4fCTMr/8Bh+Dz7rvvvk4ajt0gc+iMD07ozOXt/1kfKp7+rEuLcwj71RrZ
gP2I/QR20MAsl3AIwjDr1+z+BLvAHhqvD9TBZR3Hpq3K/d4gh+y7TsWhZjiE
91uU4hCuEeuft2zZ0olxnOEQYx/yCOxgXBLiEJftkro7CPnJDAosC3EI+VAn
mMYh8MbnEMo8qhyy5t9Hw58hxnHJ/Tmm4747a35bvzRodvoHjC6Lohde5qUl
itMvm8hHzbiku3iIaT4bwI8bb7wx3m+on/MN+bO4zvo9/x5h0OKhKvd7Axyy
7zoVh4aMQ2QJfDjGwQv4cnLo6quvjtPBCtRz2fYktNFwXvCA7T+s36D/B9vI
ONTZ+X7XJXzjMP6xHiyT+TAMH4Bh1tmBkSgX18uyYxj1cpzfbwMbZHXDIZfw
Bz4VrCWTEAv5xmm4nx9U6xeHsB8RRyIP+yM4j02Meygb59CyOMQ6uVA5xCFx
qAsbSQ7Bl6P+y5lrDXEE67jsNMREjDkwDl/PuITtRsxL9pBVFHjjl4HtN1gX
WMd6ORsP+ctnDMQ4zSX9HFjvh3/wyS/PoKsbDqFuyN5rY9wF6pzoZ20d3SBa
vzhk+xi4pM3G32fW0CfOBWKoNA6RQWl9QsQhcagLG0kOUWAJ6nLsOGMLxkpF
lJY3LR2cQtzC+j8XqN/rZvkoO5ZJNc2XujiEmAdxomUL7+GtTyWDbHvHoNrz
3xdFzzPC+G+9fyL9+UZMt3ra27qvl6NhH6KfoR9T+vsVFuIQmeX357Y2aByq
cr+LQ+KQ64JDIb/OerC6ZeMWGwP1IrCtDD8HRd3Wy7EvAmIhMoc+lH2OcV+O
tg743kF+59qzlkTRsxdP1n+1wr2NN7eGlyTTW/q/N7fTMd3Oc+rC7vsp0Ngf
DvsO7AaX2M6DezRrPodQx+eSPt64t8O+xnr8utBB41CV+10cEodaOt31yCGp
GRXhEOqTUJdJg6/zn4Xh85F++4ZVqP1oEOzp75ysGZe24rnPtfsQr98ZRc94
V+v/pvY40v28099UvH0oqx4OfRP8fRaKb3AsbD9t1vf58tflH8emrcr9Xrfc
BIdOd+LQIHPot504NHTq5V0HuG8fhnq3PDt1UcunWV3S1ts+H0XHjkfRXd9t
///R305Mt/OcfGExDhU17le/v9uoWZX7vW65Nod+24lD4pBUuQb9nTv9sJMu
bvk06G3JsPm/eEP7fhz/GLfTYmH4D6vl0LhYlfu9bjlxSBySapPeyxlFJy5s
aUGihWbcH/b/k+GT/iDS/uzCqtzvdcuJQ+KQVJv43rxxthPfkOiNgf83mvE3
BIYvjKIzFhzT/uzCqtzvdcuJQ+KQVJtuv/322HeOs50w39MFKcN2PPk/6fVR
9K7LH9H+7MKq3O91y4lD4pBUm9D3+vrrr4/7aj344IMNeaRm7annt3zbvHI6
seUHT3xtFL3y4p9EX/nmf2h/dmFV7ve65cQhcUiqTfCVeD5l586dcR/hq666
KrryyivHStNfFcU65eyoM2yFdH/ai1//aHTJ8iPR1q99X/tzAPZ73XLikDgk
SZLUoJw4JA5JkiQ1KCcOiUOSJEkNyolD4pAkSVKDcuKQOCRJktSgnDgkDkm1
CO9pvvnmm0dC2BZ/+/CtKPSjHhVhe0b5GKYdx0GQE4fEIakW4ZofFUvj0ChZ
GodGycQhcciJQ2OlUfJh4tBomDgkDjlxaKw0Sj5MHBoNE4fEIScOjZVGyYeJ
Q6Nh4pA45MShsVKWD0O7OL+xGjJ8Z2fDhg1TvlkNC30DHN9irfPb4N1w6PDh
w9F3v/vd1On33HNPtGfPnvjb574dPHhwStpPfvKTYHpVVpRD/DZ42vfBrYWO
M44pji3ekWcN3+XbvHlz/L330D6pwsQhcciJQ2OlNA7Bx7jk29IhmzNnTjRv
3rz4G9PIw+XY74X7vo/frs7yib1YWQ796Ec/ij7/+c/HChn87ZYtW2I/jjx3
3XVXnI73x23cuDFOe+SRRybN84UvfCGYXpUV5RD286JFi6Jly5bF/6F7BVjo
OINJGMexxbFcs2ZNnA4GIX3JkiVxGobTltuLiUPikBOHxkppHGodx/gdnWCH
b7h/dsZvcRx+asGCBbFvw3yWN/CHq1ativk1KBwCL771rW/F7PANcZLlE8eP
HTsW7xcwDPNZ3nzjG9+IduzYEfOrSQ4h7uTxydvXoeMM9oC9MLIHywR7cAy5
XBxnpFdt4pA45MShsVKIQ6hzQawDHwSf5Bt8kEt8Ewx1N86LczAfx3HP7BK/
aNOrtjIcuu222+JYB1xBbOMbOALuoJ4N9u1vf3tKnIP5OA6fTG7Z9KqtDIeo
tH2edpwxbOvcMH7o0KFoxYoV8X0El4thzFu1iUPikBOHxkppPoyMCXEIhrgH
+fhv5+F89H2412Y7A9Lr8F2wohwCWyxjQhyCIU5APv7beTgfeYPYCKxiOvhW
hxXlEPjC/Y9htPX4edKOs88tjONeAvVx9vhhuI4+EuKQOOTEobGS70dQ79I6
hp12BQyzLsY31N1gftwru6RezvdlaCd3SZsC5BJ29as+J8Qh1J2BKahH+8pX
vhIPIy1k3/nOd+J2oR/+8IedejkaOYR+CZh27bXXxiK7LLOqsqIcwjGhIe7B
8bSWdZwxbPstuIRXiIfYVgTDsL/cKkwcEoecODRW8n0Y/A/aNyDcQzvTBwH+
DP6N99LokwCDLwJbrJFDqN/h8uCbMR+W26/6nBCH0D8O3+6G0BfO9kFAfR2Y
w5iJ31MFs1B+a+QQ2oq4PLQ3YT4st46YqAiHcFycqSdF/Rn3Ofoe4D/rOIM3
uGeAIc0ldaroH+mS+w3W5SkeEoecOCT1qCw/Al9j269bx7bT7xpMcqYNItQ3
LtQmgfSm6+WsgRW2nwIYwn7XYBLr49L6xoXagZDeZL0cDPcGzrTjwNifxI9F
/eOM6ezz6LzYyC4X9x5qHxKHnDgk9ahe7mfhr+p6hqQbq+M5VsRFiHcGxco8
x8p4tFtD7BviDJZbV18TmDgkDjlxaKw0Ss/i630Ko2HikDjkxKGx0ij5MHFo
NEwcEodcnziE/km9nhcPPPBANH/+/Pi/6XN0WDVKPkwcGg0Th8Qh1wcO8bnG
osd/9uzZHdbgH+McXrly5UhxaPny5XG/pH6tb5R8mDg0GiYOiUOuTxyaPn36
lHQ8e+GSvjh4pgFpc+fO7aR9/etfn9RH6+67746ZdODAgTgvn4PAsnft2hWn
oQ/rzJkz4/SFCxdOWSd8/uLFizvrWbp0aWca8nNdZAPSuB6sd/Xq1Z086BOL
PEjDMpGGdV999dWdPNu2bUstl13W2rVrJ20T8mKeUBmwTM4HjolD4tAwmzgk
DrkGOYQ6Nvh7xDet5cR1d/CzyIvnMZAH/xjHMjDNJb4YcRGZtH79+k68hTTy
Acunf/fZB1/O5y7ADZSDfMA4y4t/MAB5sS7yAf6BZQELkI5h8gh5UA7Gcmnl
wrLxXAr2AdIwDel2XluG5Pro7CuutwyHrK655pqhkl/+EIes0Bd72ORvw6gd
wyLHcRDkxKGx4BD8J3ww4gJMByPod+lbySUOu8T3OxOzcB1MBxfg08EV+nLL
IVsW+HuwA8Pw7ZgPMRL8O8tifcG+ffviecBBl7x/GPnBQi6fMRafA8wqF/Jy
u7FOTEMeLj9UBuSDsO/KMEiSpOJy4tDIc4gxEOMB+NUQh+y8WRxiXpfUl0FY
LuvFKJ9D4Ac4xO8ZgAGQ5RDLgtjMJTzBsl3CIczPsmN95Bpjr6xy2XmxLjIN
wns5/TJQWAbrFhknSZJUnZw4NJIcAnswTLmEKWSS9ceIOzivS+ICyyH4b9aj
Me5Izp2O/8Y/4xSKeVnvB96QRYxjwApbL4cyYJjtMhhGe5QtC7kS4lBWuZAX
9YAcZhkQ/3DYlgFC3R3H7X6TJKk6OXFopDhEfliBB2x7d0m7PP0p09l2BD/s
kn4KLvH9bBvh/PTx5ANF3lBYB+rEuEzEFFiHnQ9prDfDOujzWUfI8pIPiI8s
h2y9HHmWVi62baEezt8m8smWAcLymSfUF0OSpN7lxKGR4lCdSmsfSUu3nGii
baXIOovkATu7KT/iLLx3bBQUasMfpe0b520cBDlxSByqSeyL0HQ5mtIo9WtO
89GjZOO6jYMgJw6JQ1ItGiUfNq4+ehy2cRDkxCFxSKpFo+TDxtVHj8M2DoKc
OCQOSbVolHzYuProcdjGQZATh8QhqRaFfBi+4YZvi+JZfv87b/hONr4Hzu+U
DpKV8dHjsI347qzdNnzfD/0y+Z0/Gr5RhPRvf/vbtZa9qIlD4pATh8ZKvg+D
38K3R/EdbPThwPDhw4fjafyGNnw0/uGvB8mK+uhR30Zs31e+8pVJ5b/pppvi
Z52xffjH9sHAKm4v0pGvaROHxCEnDo2VfB+GGAHPVNEQL2zevDn+Lin8Ff5h
uKfG+CBZUQ6N+jaCJSj79ddf34lxwFt+VxZxHrcL7CGrECPa7W/KxCFxyIlD
YyXfh8FvwTfR4MswzhiCRp89SFaUQ+OwjTDEe6G6NjzjzbgH222/e47xH/7w
h/UUvqCJQ+KQE4fGSr4Po++FP4K/wvAXvvCF2Edb3z3MPnocthEW4hD4Y7eJ
/LXjaC9q0sQhcciJQ2OlND99zz33xPU18GP00fBfqLuBwVcNs48eh230OfSt
b31rSr0bxtFGZMdVLxeWE4fEIakW+T6M7db0xRiG//KH4eNsG8sgWFEfPQ7b
CLMcYlsX2oaw3WQN6iS5jXfddddAcFccEoecODRWCvkw+CX4Iwj9rmhs36b8
/s5NWxkfPQ7baPspIN6z24VxGHiEujim29ioKROHxCEnDo2V0nwY/K9tv6bh
Xrrpduw0K/uM5zhsY1HD9jI+bNrEIXHIiUNjpVF6Fn9c3zUwDts4CHLikDgk
1aJR8mHj6qPHYRsHQU4cEoekWjRKPmxcffQ4bOMgyIlD4pBUi0bJh42rjx6H
bRwEOXFIHJJq0Sj5sHH10eOwjYMgJw6JQ1ItwjVvhXetDZP88o/a9mkbB0dO
HBKHJEmSGpQTh8QhSZKkBuXEIXFIkiSpQTlxSBySJElqUE4cEockSZIalBOH
xCFJkqQG5cQhcUiSJKlBOXFIHJIkSWpQThwShyRJkhqUE4fEIUmSpAblxCFx
SJIkqUE5cUgckiRJalBOHBKHJEmSGpQTh8QhSZKkBuXEIXFIkiSpQTlxSByS
JElqUE4cEockSZIalBOHxCFJkqQG5cQhcUiSJKlBOXFIHJIkSWpQThwShyRJ
khqUE4fEIakWffWrX41uvvlmSRop4bwWh8QhaTiE61UmGzUTh8Shpn2rJA7J
xtvEIXGoad8qiUOy8TZxSBxq2rdK4pBsvE0cEoeKHtcdO3ZEa9euja6++uro
gQceiNP27t0brVy5stLzZ/HixdGePXtKzZNVju3bt0dz586Ndu3aVTsntmzZ
Eu+ffnLo6NGj0datW6MNGzZE+/fv76QtWLAg/g8Z8m3atCnWkSNHJk279dZb
42XhXybrh4lD4lCRY7p06VIc19jXL1y4MB7et29fdO2118bDVZ4/YB24Umae
rHIg3bKzTmE/Qf3iEBiC7VuyZEm0Zs2aeBgMAX8wHuLQqlWr4nz4X7ZsWTxM
5mCeGTNmxMvA/7p16/rhhmRjbuKQOJR3PBFHOM/Hwz+BF4g1MG327Nnxv/XB
mI40CJxA2urVq+N4B2kzZ86M+cA827Zti/OAc4xdFi1aFE+bPn16J43MgTA9
i0OIg5gX8RziAKwX45h24MCBzjq5rrvvvjueNn/+/HjclhlpXJ+Nv7gsyyHM
x3Vjf9XBoRtvvDFePg1cQtrDDz8czZkzJ/63du+9907KD7vjjjviNDALbHro
oYfidOwrP69MVoeJQ+JQ3vFEXRP8cGgaOYR/xEcuiZPILvg9+H+XMGL58uUx
B+Cz6dvh7+CnwbLk/On4eaQh7/r16zvLAAuwPsQ3LuFLGocwLxjGej4MY7mY
F9whV5COcZQF82BZ2G7M5xIW0Ydj28BMu08wP6aTQ1gGthPLQ2yH+ci8KjkE
zjjDuvvuu29Sus8h7DfEQL4hr18/N2/evDg+ksnqNnFIHMo7nohZ0jgE/w8f
bP0x0hgLICZiXAT/DR8NpnBexg7kmeWQS/jGZcPPky0bN26M18H1ZdXLIQ/m
IUdYP8dx5mFdoE2389vty+MQ0sBjsAHccwmTq+YQDKxBOw/iH5fUy6VxCPMX
4RDr+GSyfpg4JA7lHU/LCIoxj+//XcIQ+GLEMuAFuAOWITaA72YdnfXldjku
hUMQYyDELlg2Yo4iHAIDfA4xVvJZg3w+W8kQli2PQ4yjEP+hnK4mDoEdlh88
VmkcQjuQ8/hy6NChSXnR5yE0r0xWl4lD4lDe8aTvZxsH/TninDQOoU6Lvhzz
w2ezLo7tQHkcwjS021gWct1YFstVlENcNriAYcQp4JifpwiHLJtZB2nbh7Bt
oelVc8hnBuIi9C9I4xDagHgsOT5r1qyY6zByCvcMmCYWyfph4pA4VOSYso2H
snzwfTZjGLb7O9N/AfGB5ZCtl+NywAaMs42FywDb/OUyHvLLYYU85AiZQCGu
8/NwvaH5uX1gIMuGNJdwBmzDNjLWYhkty6rkEFiBdhy7Teh3kMYhGPsfUJif
/erAJDsN4zJZ3SYOiUNlji18WBl/yrill/OpijiirmVWwZZeOERD3Rz7uRU1
5C87j0xWh4lD4lA//ahUD4dksmE2cUgcatq3SuKQbLxNHBKHmvatkjgkG28T
h8Shpn2rJA7JxtvEIXGoad8qiUOy8TZxSBxq2rdK4pBsvE0cEoea9q1SOQ5Z
XXPNNZI0lPLPZXFIHJIkSRolOXFIHJIkSWpQThwShyRJkhqUE4fEIUmSpAbl
xCFxSJIkqUE5cUgckqQu9eCDD0YHDx6M7rzzzvg7TjfddFO0c+dOqSa9bMWx
6OUfPh7/F9V5HzsafeiLP4qu23u48fMlTU4cEockqUuBQfgOEr6Pe/jw4aYf
bRl5e9O6Y5N00WePTUnzdcGnj0Wv/Xgr76cfibbfNpgscuKQOCRJXQpxEDgk
649d+Jnj0YUtrlAXmOG89HOvOB598KofN37OhOTEIXFIkrrULbfcou8i9dHO
/9TxRMeieZ88Fv+31U5vpx3vpGOcOm/tsWjuRx9t/JwJyYlD4pBUi/Dc+c03
3zwSSnuG/oYbbmjaNY+Vve4Tx6Pz1kzodZ84Fqe1dayj9rTjk8ahF112vPHr
IiQnDolDUi0apffLpXHouuuua7poY2XnXhFFr7mi/d/Rx9r/H70mih491v4/
18+T6IXvF4ecOFQ7h9Bnad++fZ3xXbt2Tfoe9o4dOyr5Pja+H7506dKevyOe
JrR7r1y5svHroxeNA4e2b9+eOy/aj+bMmRMPb926Ndq0aVNHGD969Ghl5Xz4
4Yfh0wq3Wd13333RrFmz4nl2794drVu3Lh7Gcqq2VatWxYJt2LAhWrFiRell
nNOa/exVE/8c/vMvR9Hx41H07w+1/zHOaeeY/Ke9Vxxy4lDtHILvXrhwoT2+
0fLlyyeNw8f3et6AZVhWFUyjUE74NQxfe+218fKbvj56kTjUNhzHzZs3x8Mz
ZsyIx31VxaIjR46U4hC44BIGgT3gIrhUJRtp4A7ZgzY1rPeOO+4otYxXXJ5o
ZaLW8Ps3t+OgLa1NPuvy9j/Gl/79RL7ZiZ6/JGr8ugjJiUMjxSHEQy7x3+AN
hmfOnDllGv08tGjRojht8eLF0ZYtW+JhxDnTp0+PDhw4EO3fvz9eBvKScUjH
OP4xjmVwXciPNORFzIR0LItxGtbBdWOdq1evjsW0tWvXxv4Nw7Nnz47/sZym
rxVxqDyHwB8cP5rzGMHjjNioFyM38O+vI8vAIZy7dRrLhnXZGGjZsmUx88rY
77Rmf+mKiX/oaIs5/9TC2Us/3B5/WUvb/jWKfvLoRB7mf867xSEnDvWlfcgl
fIA/h+DLEbesX78+9vvIM3/+/NgHgDfIj/o68AF5ySmwA8NIQ30F58MyLYcw
jnRMRz4uA/NjfVgHrnWwhPNh+eCVM/Ea8mzcuDHOT/+Ef/ALw7a+cRiUxaFj
x47F2/PII49059z6bN1yCPHPmjVrOuMuiT38PPDRiEcwzLoxDMMOHToU1+u5
5D4FdVrWlixZ0pnG+MZyCL6f0xcsWNCpc5s3b96kmAyxia1D5LCd31932rJh
ZDCEMkKsl4Px/Mf2FbUzPjihM5e3/2d9qHj6sy4Vh5w41BcOgQnw83Pnzo19
Hfz81VdfHccn27Zti/OAB/D5iEPAC+Qnk8gEcIvcwDLAGywDnLEcQgyEdExH
vSCXgX/EYOQamAS/Rb5BKANjHfwjn89BMo3ThkVZHAJ/sL+++93vFvZBTVo3
HArVkfnjTCOHXOK3sT7kY3wDZoAT9O2s5yODUJ8GvnF+rgMxh0vuZ5CGYXIG
92Y4zyFMw/q5DBjzYzqYAZ5iHMN5y+ZywCmUm+W0TOa2cVuK2OkfMLosil54
mZeWKE6/bCIfNeMScciJQ33hEJgDBtGPI9YBO1jPRt4w/gBH6OPBMNab4Tpl
OxDuUSHkB8ssh7BcMATcgli3x/VhGPPkcQjTLYecaR9ySQzV9PVSFYdgeE8L
3oszDNYNh+ibbYzA+AjzYZmIIVzCDXLIxkv05zgPuRzMg/os5rd+nO0udnmM
YeD3wSukgZEw23fArs+W3xrLl7dscMevc3MJb60hj5+WZeKQOOSGhEOM99nu
Q+6wvoxssUzy/T/r2cgAsgX/Nk7CP/hBlqBNisPgDfsxkEOcD+Osb2O9HKaD
oePAIfTTQjz0/e9/v7APatKq4hD7prG/AuIHcifU143L8IX5mN+29dtl2PjK
F8tk+w7ALIcwzLpBGsYth9KW7bzYB4b4yWcO6ySLmjgkDrkh4RAZQHZA4Arq
4DjOfgUu6Vtgfbwz3IHQ99uZ6wx1bZZDrJvjdLIEaZZD5BPbflBGMIjp4BvS
Ubfnx00YZl+6YVEah37wgx902u7GIR6y71twGX0IQhwiFxi/wBB7IC/r/ex+
tnWBXB7iFGt2WXkc4rAtv+VQ2rJxfbGOjhZijuIhcSigkeFQHWIdW7fTmQdt
SexzgBjI9isfJYU49OMf/zjmD9qHvvSlL0U/+tGPCvugJq0bDtFX33jjjZ00
F+inQCND7HQuA34d7fmIfTCO2ALGej3MgxiT/RnIMk7HfJif7TTsw9Yth/KW
zXst1NuBw2xbCrUP+SzLsue/L4qeZ4Tx33r/RPrzjZhu9bS3iUNOHBpqDlUl
20ebffmaLlMd8jn06KOPToqBMPyTn/yksA9q0rrtL4f7fTIDxnqtkIXq2WCs
Z6ZsvzT8235viC2wDnIIvp68oOzyQ+1DrIvLqpcrsmyyxyX1iMhr10Wmlnk/
37OWRNGzF0/Wf7WQuvHm1vCSZHpL//fmdjqm23lOXSgOOXFIHBoj+RzCMzL3
3HNPPEwmcXzQrVsOYT7nqnlOFfFS2nsOsqbBWI9Xh2UtG9PSyoX4CWwqY09/
52TNuLQVl32u/QzR+p1R9Ix3tf5vao8j3c87/U3ikBOHxKExkp5jbZtL+lvK
Jgx1iNgv+C9jpy5qscTqkrbe9vkoOnY8iu76bvv/j/52Yrqd5+QLxSEnDolD
YyRxqG18Tkc2YYiN/Wdii9hJF7dYAr0tGTb/F29ox0H4x7idFgvDfygOOXFI
HBojjQOH9L7t/tqJC1takGihGfeH/f9k+KQ/EIecOCQOjZHGgUPo049/WX/s
xDckemPg/41m/A2B4Quj6IwFxxq/LkJy4pA4JNWiceDQ7bffHrNI1h87Yb6n
C1KG7Xjyf9Lro+hdlz/S+HURkhOHxCGpFsF3W11zzTVDJb/8oW1EO/v1118f
PyM0LM/kDrM99fwWU+aV04kt/pz42ih65cU/ib7yzf9o/LoIyYlD4pAkdSmw
B/0Q8K48PI951VVXRVdeeaVUk6a/Kop1ytlRZ9gK6f60F7/+0eiS5UeirV/7
fuPnS5qcOCQOSZIkNSgnDolDkiRJDcqJQ+KQJElSg3LikDgkSZLUoJw4JA5J
kiQ1KCcOiUNSLUJf55tvvnkklNZvWxq9Y93E8XbikDgk1aJxeI5VGr1jDROH
xCEnDo2ERsk3iUPjc6xh4pA45MShkdAo+SZxaHyONUwcEodcjxzCu/j9NHyP
e8eOHbWfTxs3buy8+7JXrV+/PlbTPka+SRwap2MNE4fEIdcDh/COlVa+6Npr
r52UvnTp0ji97vNp8eLF0bZt2ypZ1pYtWzrLWr58eZCvg6xR8k1ZfgnHZe7c
uZXdf+SdE1dffXVt5+6ePXsqPdb47jveffT9738/1g9+8INYg27ikDjkeuAQ
4p5WvtgvMO2BBx6I02bOnBmPg1EYh/B9MuZbvXp1J53XeijN18qVK+Pps2fP
jtdLBuK715yXaVgemQiRM/hnGpjD+fEdT1sGpMFfsCzYtunTp8fb3c/rphff
NIyW5Zd4buBY1L1Pce5AdSwb59bevXvjYZzLZbYn7ViDPTfccEP8/r3du3fH
6yjy7cCmTRwSh1yP8RB4A+3bty9OQ93WwoUL42sL4/Pnz4+vBfIJ9XWMo+DP
cV8LnoTS/PVhOciD65fD+Ed+DGMZWL5LYjEwBtxAOurwmM5yYF0oO/6tzwEv
kR9lxj0xtwXrwvL6ec306pto99xzT/zdhB/+8Id98i7dW5pfwjnhknsEHL/9
+/fHx88l90K8P8D5h2OI9LvvvjuehvMQ47jPwL0FhpGG/Lhvwf2NXY9/Ttj7
E9yv+GVLW0bavRDKyPPcbhPObW4Tyhe65ylyz4Hr8Utf+lIfjlbvJg6JQ65H
DsFHw2fzenXJ9cR4CNcRpuN6hA/H9co4Ctcir8tQmi9c54xfyDgsjz4C93+M
i3CNo0wY5/LJELIT5eJ1bn0O/hlTkZ8Yhv8a1DakNN/0yCOPxPsAdUAQhgfd
0vwSjyHrszCMcwLHCNwhV5COcXCK5xXuJzCfS1jE+x6cJzjfcGy5Ht678Jzg
/QqWB0645H7Jli1tGVn3QrwW7DZhGSgfhrENofrhPA7dddddQ3GcaeKQOOR6
5BB9u0tiE1yvrL+iD2d8gWn077j+cK0gH5cRSrPCNW05hOViefAV5CE4gXob
+Axc01yfLSuEvLwXRV7LITsfeQc/5pKYq2nmlOEQ9ie+2wMjkwbdsvwS60XJ
EdZncZx5WOdl0+38HMZxzuMQ0hBfIA5ivbB/HmQtI3Qv5Ez9sS0Tl495WMdQ
hkNYJ+Z99NFH+3jEejNxSBxyFXGI9SDw1+SQrWsjk3Dt4d6PbUVgANJRp+2n
+fecbGtCOq5Rl7AP62Q5sB74A+Sx/RhsWcEV+hGWyeeQbZ9iHSDvtwdRId90
//33T6qbQZsB9v2gWx6HcOx8Dlkfb/26f//B+e2xz+MQ4yjcAzGmKcqhtHsh
l8Ihnue8nkJ1A2kcwvEGg9BfYZhMHBKHXAXtQxhmuwz8AusxLJ9c0ncB1xjy
IH5hOq6dUFponai3Yx7ez/rrIU/gNyyHWCZbX4/lIc3W+SGmwjRb3+8SxjbN
mzIc2rRpU3TbbbfFw2gfGoZYCFaEQzwm4AKPH4+vzVOEQ7zPQBrbGm37EPu1
+NNtudKWkXYv5DwOMfbB+lgXh3M61E8idKzRRwHHF/3jjh07FrNoWGIicUgc
cg0+x8o4KS8tNF/R5aWJvCySl36lH320upXvm+iXKPi8UfBLYA05wuNC0Zfb
PPaeyJ8G/88+NOwbgDSXMIT3Joy1XHIvZVlmz6fQMtLuhfBveeOS2B5xuDP3
WagbyDvWMMS99nhD6JcyDCYOiUNO71PIFOO8up4jqUq+b4JfQj0NbFj4Qyvr
l6rqR19F219V7YdZ2zRKffRh4pA45MShkZD1TeibPSx1cCHT+xSKH+tRMHFI
HHLi0EholHyTODQ+xxomDolDThwaCY2SbxKHxudYw8QhcciJQyOhUfJN4tD4
HGuYOCQOOXFoJIRr2eqaa64ZKvnlb3p/DrKG/Vg3fbydOCQOSZIkNSgnDolD
kiRJDcqJQ+KQJElSg3LikDgkSZLUoJw4JA5JkiQ1KCcOiUOSJEkNyolD4pAk
SVKDcuKQOCRJktSgnDgkDkmSJDUoJw6JQ5IkSQ3KiUPikCRJUoNy4pA4JEmS
1KCcOCQOSZIkNSgnDolDkiRJDcqJQ+KQJElSg3LikDgkSZLUoJw4JA5JkiQ1
KCcOiUOSJEkNyolD4pAkSVKDcuKQOCRJktSgnDgkDkmSJDUoJw6JQ5IkSQ3K
iUPikCRJUoNy4pA4JEmS1KCcOCQOSZIkNSgnDolDUq168MEHo4MHD0Z33nln
tGfPnuimm26Kdu7cGevGG2+UxlA8/jgXcE7g3MA5gnOl6fO1CTlxSBySahX8
y6233hrt3bs3Onz4cCSTWcM5gXMD5wjOlabP1ybkxCFxSKpVuNe97bbbmnZ3
sgE3nCM4V5o+X5uQE4fEIalW3XLLLdFDDz3UtJuTDbjhHMG50vT52oScOCQO
SbXqhhtuqNRf3XfffdG6deuihx9+ODfvqlWrYnU7fdBs2Mpb1nCuNH2+NiEn
DolDUq267rrrKvVVixYtwnUbbd26NTfvihUrYnU7fdBsEMt7xx13xMejyH1B
nuFcafp8bUJOHBKHpFq1ffv2Crxd2+DrWudBrDlz5qTmO3r0aPyP2CHkt/Om
D6oNIofQv8BVxCGcK02fr03IiUPikFSrquTQV7/61djnbd68Of4/dOjQpOlM
h5YsWRLL1mPlTbcGvzpjxoxJ8yxYsKDDMBiYYKfRF69ZsyaO22jLli2Lp9vx
NJ5gm8BYLnfDhg2T1mfnw75lPgixiS075uW0TZs2dfYft99a2raAMyiPnc4y
kUEU6kt7MXFIHHLikFSDquQQ/OG8efPiYef5vd27d8dp8Jfwx/CzGAcTikz3
zcZemJc+nOsESzCO7aM/ZoxGPoBZEJdD3+4SlvrGvNhGlJEMZF7LIa4T5d+/
f39ne9Dez7KDRciHPCwDxsEkblfetnAcXMV6uCwMYz3YH5wXbXe9mDgkDjlx
SKpBVXEIcYIzvhNxDMZp8MOzZs2aNA+mM97Jm+4bfTn8MA3+Gv6Z0xgXgB9o
r0LakSNHYmH43nvv7bSfQHiGE5xwCS98IysxH5mF2ITlthzi9mDdyMvlohx+
2ck3rN9uO9aXty3kkL/feBw43caJ3Zo4JA45cUiqQVVxiHVM8L2IF5xXF+UC
sQ24Qc7kTfctxCHMjxjDxkq+yA+UE3EM5sE6EDdgfYyrQubXc1GMTSyHsPxQ
XqzPL3toW5zHobRtQR5sszWM+xxS+1D3cuKQOCTVqqo45JJ2C/hx+Hf6c/h2
GOqN/L4L8JfkTN5030K+G3kth/w+e4gfaOAmWQFWIsZxCVPS6gIZD9nlMN6B
WQ6FtofzdcOhtG1hmaxxXpjiod7lxCFxSKpVVXCIdVuMfWhsm4APZJsM/D/q
qNiOQZ+fN9031q3R38LIIRiYyDKhzpDtM/THaCtxSVzBNI6jbSVkZAIYg2Vy
u8layyFuD9p6sD1sS8I8ftmzOJS3LUU5hPJYfnZj4pA45MQhqQZVwSEywze2
GdG/2vZ4xArwrzbeyZtujb7bsg/zMwaBj6b/pnxOglm2Xxr7A2QZGGWXafuu
+c+x2v5wzrTx+GUPccjWrWVtS169HOZl/75e+5SLQ+KQE4ekGlRlf7kiBp+b
1VaRN72b9fUaB4QMyyxSTnAAeauoF6trW4qaOCQOOXFIqkH95pBseE0cEoec
OCTVoKrf6yMbXdN7fcQhJw5JNWjXrl3xv0yWZfZcGTc5cUgckmrV7bffHvsX
mSzLcI7gXGn6fG1CThwSh6Rahf7L119/ffwsP777LJNZwzmBcwPnCM6Vps/X
JuTEIXFIqlXwM3iGc+fOnfGzkldddVV05ZVXSlJ8LuCcwLmBcwTnStPnaxNy
4pA4JPVF8DH3339/dPDgwfi+Fzpw4IA0huLxx7mAc2Jc+UM5cUgckiRJalBO
HBKHJEmSGpQTh8QhSZKkBuXEoZHk0AMPPBDt2LGj7+fTxo0bx/YZCEmSupMT
h0aSQ+vXr4/fu7hv375OGt4Zsnz58lrPp8WLF0fbtm1Lnd6PMkiSNFxy4tBI
cmj27NkxE+jz+Y58aP78+XHatdde20lbunRpnIa+PHPnzo3zIH316tXxcux8
vlauXBlPxzoxL5aL9IULF3aWj/WHyoDlMw3fMGj6epAkqf9y4tDIcWjv3r3R
zJkz47q51jyddNSZ4bsuSAdvMA2xC79PhhiK6Vu2bIn27NnTYRHz+HVuZAvW
yWEyBxxCnquvvjqaPn16sAwoJ97zj/kxL9KaviYkSeqvnDg0chxCDIQYhuxg
OxHiFMY9jIU4D7hj52E6+EE2YJixDoVYyNazIc5hHqx37dq18TrBG78MEOoN
EQcxpsL6m74mJEnqr5w4NHIcauWLmQG55NuWSEfsYznEGIXTyCGbjmGyAcvy
OQQGWQ5hXcjD74SCQxA5ZMvAeAvzI05yI8ghxH3YNuwDxpJIA6/xnzc/YkUw
mnm5rLz9hHsH/xsCYD7mxTLsujGMWBjHzF8u7k8wD45V0W0uWsYy+XHeII+/
TbzXQTn9bcX2MMYPHQ+2nSLeH9fvLQyKnDg0Uhxi3RjHGd/g+sO1zLoyfvOS
/gVtO6x/K8MhxlW41nFdu6ReDkwjb+APuExbBgyzrPDRbsTq5bjvwWbGe/B/
OBaWLVliW50dBrddDrPBfZuH+xfrRXl4TrCMbEt0SR0rzwmsk214qF8tWt4i
ZSyaH3l4fjrTjoh9yX2K6dxPadvKOme7rTj/2adnlM69YZMTh0aKQ7jucF3a
NFyj8Pm8PjGOdF5/EK51pLHNhvNimL4BLAndN9r+CKy747q4bK7TlgHrYsyG
9VjmjYIsZyFsG9Kw3dz+vGVwn+C+3y7Lj0Ot6GexDnvssAy+Vwb3DIyDGC9D
8PGYj+11TOd4FjvLlLFMfsQvHAYLWV7EQNw+W5+M5dpnFlzCN9x7WZaCW+zb
OWrn3rDJiUMjxaGy4n1ir8vRvWR4n7iExbiXZ5zB9DIcgr+0vADrGVdasa7T
zothcB58YXkYq2K5Nv5FOuezZSRT8+rOipSxm/zIyxjGMgb71Maadh7sc9wD
8R6LAmvZB5Tbl7dtdQnbbNeL+7xx5KETh8aaQ1K9gp9jjOESX1mUQ/T9rFO1
/Tvgr3z/CoE39h6f8Ysz7GH9Kf5ZFuTF8lwSmyIf++7zP6/MRcvYTX74a3II
fGE6tgEcQpn95wqQj7E6YiGmIwbEep2pZ7b1yP0U9z230SX1iU2ftw3sB3FI
HJJqEO5r7b0t6pFc4stdAQ7Bt9Iv+/1KwDbfb7JtEDEG20Xgm7k+G0dgWeQV
pqNsWAfSbL0s0lCXRXZl1csVKWM3+e2z2CyHnw65pG0LzLHlxD5gfwV7PFDf
R3bZY9PPc8TWX/N4NX3eNiEnDolDUi1iH0D6NvbXKFMv55L6ItaTsW7PJc94
cbnwyfC/8LcQ181+EbjfZx0Y23qQn200Nm7CvCwj+/hhfusjMZ/PpKwyls3P
bWI52J+GvLBl9bcJLGP9Hp+hI2ftttp9wvazJs4T9rfgsW76vG1CThwSh6Ra
BH/Hui6KfQVcifYh5rP9Smw7ikv6KPrz8llmloV96JxX98PYyV8u+947z0dm
lT9UxrL5/W2yftqZujT7PhBn6uvAIvZ/8Zfr96lhfZ3dz/0U615Zb9tUOZqW
E4fEIalWsa9Wl9fnpGd3elkW5w/5ubTlIq+fjhiJ/R+LbG/Z/CGxj19oGuMm
Px3LDMUXofW5hmIRZ+ri2MdE7UPikBOHpAESY5JBukdGnII4pq78/Rb7Ejax
btQn2vpKf3xc5MQhcUgaaA0Sg0ZR2r/Ny4lD4pAkSVKDcuKQOCRJktSgnDgk
DkmSJDUoJw6JQ5IkSQ3KiUPikCRJUoNy4pA4JEmS1KCcOCQOSZIkNSgnDolD
kiRJDcqJQ+KQJElSg3LikDgk1Sq8Xw3v54HKvsMM70Gz3xDH+6Xx3s+85eAd
Af67T/ldV5uG92xieaH3pKapSBnwfmvk4bu0Kawf6fzmBIV3xCEdy7bvtcEw
1+cvq5fypW03y8f3ftvy4fjx+xGh8vH9d3jfapn9KYlDThySahS/3YZ/fgO0
jI/C+7r5HkwOc5lZfpbv1mYefEPImW+ucXl4rxr8JqbBzxYtT1YZsEzk4XdS
ub18tzZ8tv1uHb/Bg/x89zdZhPIijWXM23dFype23XyvN/65DVnl43vE+R12
l7yTltup9wUVlxOHxCGpFtlvdFP+937yxG90cz6mw+9BoXnoF+FL+e0i+FR+
D4H5+O0eCJyy3+gOqUgZ4Hvtt+zgu1EefgcI/3znN+MHfvsHaUxnPrs+LDdt
m4uWL2u7EQORW3bdWK6NI13CN+xPzM907GP7Ldxx/ZZQN3LikDgk1SL4Nfjg
wDVX2EfRn8G/WU7g2zv2uzqUZZ/vC+HjLYcgLJf38nnfgStaBorswXLp1+03
kOjD+b5rpluOYfmYxjgkr66taPnStht1f4zjEBfZeRA/IZbyv12OeIqxLmOg
oscYZbT5EO+NI7+cOCQOSbUIfrYXDvEbafDnGLb+Gf7K94cQfLq9J7dxF9bp
cwh+kP6Y35HLKk+RMtiycPv5PW+yh9vG/cHlMh/+WV4sg3VmfrtNt+VL226s
Fxyy9YYU8vE7evb7RaiHw3qd+UYfypz1TXR7LvCY8Lt++v6QOOTEIakiwQ86
r16OfrZI2wF8If0ofJRlCO7BfT/H9SEmYPwAX8p1+Ryy35VjubLKU6QMFNZv
v+nDthSbxyU8dl5MgnWAKZDlCP10r+VL227/O3su+WY5mGN5jn3K/gr2fgL1
fWQXv1+ed5zZ9kT57BsXOXFIHJJqEeuleL/Nb3Nn1WUFrs9OG49L/CLTGRvA
38KHwl/CP0LwiS6pW6IPtRwiF/itV/pNrhdc8NuwipQBw2z/ZzsQl4M0ts3Y
9SF2YH0alu2SeINc5fxYLtnWbfmyttuWz5YDLOMx4zHFfOQiy2G3g21eRY6x
/e75ONbJJfteHBKHpJrk3+/i/r7M9zbhz3hPzX5YkGWZS+lHBub59XJI47j1
f87UKdFXh+7l88rAea3YV4BtVxTrD8lnptt6KdaDUVhGL+XL2m5yheL9A/t3
hJZry4c8rK+zxy1LrJ9k+1jR+UZNThwSh6TaBf9k2xRKXJ+de3eI/bSqKpft
t0aBnVnfye61DJg/xGLGT3nrq6J8oe2mGDeFjmEoXgmtzxWMbZypiyOn1T4k
DjlxSBogoT7J9flZFMQNiCua3vZhLR/7/xXJi/o/y2R/fFzkxCFxSBpojWM9
zTBLx6u8nDgkDkmSJDUoJw6JQ5IkSQ3KiUPikCRJUoNy4pA4JEmS1KCcOCQO
SZIkNSgnDolDkiRJDcqJQ+KQJElSg3LikDgkSZLUoJw4JA5JkiQ1KCcOiUOS
JEkNyolD4pAkSVKDcuKQOCRJktSgnDgkDkmSJDUoJw6JQ5IkSQ3KiUPikCRJ
UoNy4pA4JEmS1KCcOCQOSZIkNSgnDolDkiRJDcqJQ+KQJElSg3LikDgkSZLU
oJw4JA5JkiQ1KCcOiUOSJEkNyolD4pAkSVKDcuKQOCRJktSgnDgkDkmSJDUo
Jw4NC4de4sQhSZJGUK7NoZc4cWiQOfQCJw4NrR588MHo4MGD0Z133hnt2bMn
uummm6KdO3fGuvHGG0dK3C5sI7YV24xtxz4I7Zvr9v5H9KEv/ij6g08cjV62
4thYCNuKbca2N31uDorcBIde4MQhcUiqXPDDt956a7R3797o8OHD0bgYthXb
jG3HPvD3y/bbDkcX/dV/Ra/9+KPRBZ8+Fr1p3ejros8eiy78zPHWNh+L3vxX
P4n3QdPn5yDIiUPikFSrEBPcdtttTWOhMcO2Yx/4++WDV/04OveK49GFn277
5lgYHlVxG5PtxLZ/8KofNX5+DoKcOCQOSbXqlltuiR566KGmcdCYYduxD/z9
Mvejj0bnrT0Wnf8pq+PRvE/6aaOg9nZNbNvx6Lw1x1v74Gjj5+cgyIlD4pBU
q2644YamUdC4YR/4++VFlx2PXvcJq2PxP/zzqInbRjEN+6Dp83MQ5MShQebQ
c5w4NPS67rrruvLdR44ciVatWhUtWLAgWrRoUbR169aK6VDe0NbTOg+jhx9+
uNR82Af+fnnh+49Hr7kiis61+lgiP70HvWb10ei556+LTnjJolgY/r2PPjwp
z2lv2hSdtfy+SWmnL9wcp1dSho8dn9g+84990PT5OQhyUzn0HCcONc2hGU4c
Ghlt3769tL+/7777Yn8PgUGzZs2Kh/HfpJFDYGQZwz7w98tp7z0enbMqiuZ8
NIrOXjWhc1ZNHu9Fsz/0UGc//tpz58Xi+Ms/eKiTD+NnvHN3Z3zG76+J005b
uLWScmAb/e2ETntv1Pj5OQhy6Rya4cShfnPoFCcOjZy64RBioNbxjv0+bcOG
DXEa+kc3Zd3GQyEOPW9JFL3i8kQrzTDHK9CTX7yozZO3bu+knf72G+O0X3/B
gk4axl/4x7vj4eddtDUef+brN1RWjinblgw/b7HiIcjlc+gUJw7VxaFpLT2l
pac6cWhkVZZD8PGtYx2tWbNmyjTEQ0zHcl1ybw9t3ry5kw8cW7JkSTRnzpzO
9DvuuKMz/dChQ5Omof7P2ooVKzrTsCxyp0oOPftdUfQ7K9p6aQ367T9r78eT
WoGHP+2UV7fjnZcsOxKPY/j0S++IheETXrGiljL524t90PT5OQhyxTn01MRn
TnPiUFMcOq/p80Uqr7Icoq8HK9IM9WIu4ce9994bswnj7JdHxmzatCnmD8dh
R48ejYdnzJgRrwvtThgHe2DLli2Lx1FulgXzV82hZ10aRWd8sD4994/aZT39
/xyaMu2F723X1z3nrbvj8f/x+BnR9PM2xWlPeN6Cysty5vLwMPZB0+fnIAi+
zYlD/eLQ411xDj3TtY/F81z72Mxy4tBQqiyHdu/eXcjXgycQ8rE9CfPCEDeB
JzTbrsPl2zYeTEd9H2Mx1AFyHeQU8lfJoRmXRNHpH2jpMu+/Ij3jze3tPO29
D0+ZhjRMe+Zbbo3Hf/HkidjwcU+eFb3g/UcrLUvatmEfNH1+DoJcm0OzEl/3
vMT3PdMV59DjnThUhEO/6opx6FQ3lUOnOXFoaNVtPAS2pBk4wDYkK7YnIdax
9XqWH1ksIYdCyps3y0Icetpbo+h574ui5xv5473o6W9p17E9c9F9U6Y969JD
8bSnvfnWePznps2KfvXZC6Jnvv3eOB3DVZWD2/W8P5majn3Q9Pk5CHITHDrN
TeXQqa4Yh37ViUO9cuhEJw6NpMpyiPVmrCezNm/evDhWQVsQ8qBODsZ6Ossh
2+Zj+RGKh8C8/fv3dzjk9xFn3io5dOrCKHr24sl61pKpad3qWe9u78cnvGjZ
lGlIwzTkwTiGT3njrfHwSX+Y9GN4+ZrKypK2jdMXikOQK8ahE5041A2HfsH1
xqFnO3Fo6NVNf7l169Z12n/Q5gPeoN+BS/obsK4MXABD/P51WRwia8A0zMtp
WD6My8J60EbF9YKPIYZ1y6FT3tSKWd45VTMuDad3oyed1e5j+PgzVkSnXHwo
FoaRhmnMh/Gnnr+7M/7El7bb257yuu2VlYXbRmF8+pvEIchN5dCzXW8c+gUn
DhXh0JNcOoee7sIcel3T54tUXt1wCMZ+2lZcFlgCjjDd5xD6FaTVy8HANbtc
2ycOvPHr/NjXDv92Ob1w6OQLW354UUuXTPyfusikVaQnvWrzlP34a2dtmpTn
Z355RvSU83ZPSvuFp7f3wYkLDlVWllO9bcM+aPr8HATBt7kwh57u0jn0JCcO
hTj02GR7sziEfh1PdGEOneymcgjvt/itls504tBQqlsOkTeISdL6zjG+6dYQ
16TNj/SycU+aBTl0fssPvy2KTrq4/X+y/1+hTrr4aPTUC++LheGql5+/fi+N
4+eLQ5Brc+jMxNc9103l0MkuzKEnJj41i0P/M/HN4lA6h/gsq88hvM9CHBoB
dften1Gy0Ht9Tn591Io1WlqYaIH5H1Ul23rSm9vj2AdNn5+DIBfm0DPcVA7x
GdZpThwqy6FfdmEO/YabyiG8v4Ic4rtOyaHXNn2+SOW1a9eu+H9cze4Dqxe/
5Vh04hta/viN0eR/Do+S/O2ELoyiM958rPHzcxAE3+Ymc4jvlnt64hN9Dv2G
C3Pol504FOLQL7piHML7Ksgh/53bODZnOHFoKHX77bfHfnhcDduOfeDvl3f9
5SPRiedF0Qnzx0gXJGoNn9iKhd51+SONn5+DINfm0BluKof4brmT3eR3+mRx
6BedOEQOPc5N5RDfqZDGoax3nYpDQyr0Sbv++uvj50TxfexxMWwrthnbjn3g
75evfPM/orPe+l/RSb/f9sknzBsPYVtPfG0Ubzv2QdPn5yDITXCo6DtOfQ79
LzeVQ/TDo8whsijEIfaZsxyy7/bBvkM/D3II7W6hd53yGSJy6PebPl+k8oI/
Rv+0nTt3xv2tr7rqqujKK68caWEbsa3YZmw79kFo32z9+vejS5YfiV50/rFo
+quiWKecHXWGR0ncLmwrthnb3vS5OSiCb3OTORR6l8IJia8kh37NTebQr7ip
HGJfuRCH6MeHlUM2JuqGQ+y7jX05zU3lUOgZohc7cWioBV98//33RwcPHozj
A+jAgQMjJW4XthHbmsYf7Zf8/TJOcm0OvdilPztkOTTNTXDIf7dcWQ7Rn48b
h4q+28d/hgjHaG7T54skSVLVgm9zUzlknx0q+m65cefQz7qpHOK7fYpyKKvv
9otaek3T54skSVLVgm9LfFxWn+0yHPKfYX2s8dPDzCGyKMQhsiiNQ6F3KqBe
E/uSbUSWQ6G+2y9s6aymzxdJkqSqBd+W+LisPttPdRNtQ7+e+NCi75Yjh+iv
Qxyyvn7YOGRjoscmCr3bp5u+27bPHN53cWZLr3LtutTXt3R+S/NburClN7W0
oKWFLV3c0h+19PaWFrX0jpbe2dK7W3pPS0ta+j8tvbel97W0tKUPtHRZS8ta
+tOW/qylD7a0PNGHWvrzllYk+rDRXxh9xGhlji6XJKlr5V1f9lq016i9dnk9
49rGNc7rHdc+fAB8AXwCfMMHXNtXwGfAd8CHwJfAp8C3wMfA18DnvN21fRB8
EXwSfBN8FHwVfBZ8F3wYfBl82pmu7eNCfeXK9NkOvdOHfjmtr9ywcyitjejn
XDqHivTd9vvMsY0I3+ZAHeqsln6npZe3NNu17yVwLM9p6dUtnevaxxfPKOM7
h/Na+kM3waw3uAluvdm1z5O3uPY581bXPn/IsUtc+7z640TvSHRponcmeldA
787ReyRJ6lp511fomuT1yuuX1zOvb1zruObJEQg+Ab4BPgK+Aj6DXIEvIVvg
Y+Br4HPge+CD4Ivgk+Cb4KPgq+Cz4Lvgw+DL4NP43SHbRyHte+BZfbbTOJTV
V24YOOS3ERXhEOvminDIthH5feZC7/fB8UL8imN3pmt/wzDEpDkt/Z5r17ui
DfC1bjKXGEtd4CbY9EY3wSefUZZT0NuM/shNZhd1iSRJjclei/Yatdcur2dy
xmcNeQPfQOZc4CZiGssd+Bj4Gvgc+J45Lswe+KwzXduHwZfBp8G3hdqGQn3l
4DOLcAg+uEifbZ9D1vePAoce58r3mUtrI+JzRIhdT29ppmv3t8f9xG+39FI3
mUVnu2wWsV6PcdIFbnKsBF3kJngUYhL1VpfPJ0mS+qsQb8gcymcP+YNrn37A
5w98BuvVshgEH2QZBB8FXwWfBd8FHwZfBp9mn18lh/y2oar7yg0zh8o+y1rk
e3hpfRVC3whnTIRj6MdEL2vpd1t6hWvfh+A8sHV1ZVjE2OgiN8EjGyNReVzK
0tskSepaRa+zNO5QNvbh9Z4WA2UxyNbBwffAB8EXwSfBN/mxEHwYY6HQt8Cz
+iiU+f7dY113z7AOAoeqeqdCGoeKtBGF6uYYEyGeRT/HrJgI5wFjoiwW2Xo6
tiH5PLLxkWVSGpd8XSxJUu1Ku/587lj2+PGP5Q/bfmw9XBaD0urj/FgIvgs+
jLFQXp1cXh+FOjjk82AYOPSYZFuzvg9epI0o9DyrrZtjTMS6uayY6JVualsR
+zCksSgUG5FHPpN8Llk2+XySJKm/steif53auIfsIX/SYqAQg9gXwW8Tgu+B
D/pdlx4LwYfZWMjWyWU9v5rVNpT2PXDI77M9rBwq0nc7r69C6D1zWW1EiE9t
vznGROyvkBUTkUWsn7MssnERvsmbxSPIj5HSuGTln/tZzJIkqZzyrq/QNelz
x499LnDZ/IGv8OMgMoj1cWRQXiwEH2Zjoaw6Ob9tKPReuaJ9FMihMn3lhp1D
RfoqFK2bszGR7a+QFhPZ+rluWEQeZTHJj5csm/IUuk4kSSqmoteZzxwb84TY
Q/50wyBbH5cXC/Eb4Fmx0Aluap1cr30UhpVDVb13O+29CpZDaTERjpH/rXDG
RGVYFGovsvV0lkchJs03usBN5lKIT1l6oyRJXavodeZfnxe4Ce5QIfaE+ANf
EWoPKsOgUF9t+Db4uLRYyG8bSuujUNV7tqFh4VDR953mPUeUVjdnYyLEq34f
bsuiUP2cbSvyWcR+dDY2CvEojUl+rBTiU57860OSpOK6oKD869OPeULsyeIP
fAb7xfkMsm1C8EHwRbPc1Po4+C6/rzZ8nI2FitTJZT2/msWhvPfKNcmhn3K9
c+hn3cR7JIq0EYViot90E3VzjIkQr4baiUL1czjuaSxiexFZxNgojUdkkh8n
kUtUiE958q8PSZKKq+h15vOGstcyuUP2ZPGH9XBkEHxKFoPOdFPr40LtQvaZ
obQ6OcZCRduGIPrlXjiUxoterWoOFemrkNd/O62/At/zk9Z3DvcXobYin0W2
74JfT5fGIzLJxkmWS37MlMapkM6XJKlr5V1foWvSXrP2WiZ3yJ40/vj1cLZP
gs+gUJuQ/7yQbReCj4OvS+uf8CSX3V+72z4Kg86hvL7b3T5H5NfN+e9WSIuJ
Qn3nLItYP5cVF5FFfmyUFh+RSSEu2ZjJj518TkmS1F/5nLGy17DlDtmTFv+E
YqAQg2wcBJ9k6+Pgs7L6yPmx0DQ3+dnVov2189qGeu2z3QSHfBblcciyyLYR
pfWbs3Vz01x6O5GNifz6uSwWse8C+lGGYiO/7cjGSOSSjZV8NoUYlcUrSZKq
V9r151+n9homc8gdG/v4bUChGAg+hX0Sshh0mptcH5fWR86Phfw6uce7cD85
csgyqIr3+Qwyh9LaiIr2m8vrr2BjIr/vnF8/l8WiM1z7vGA/OsZGPo8YH1ke
kUlZXLJxkx8/5cm/NiRJKq6i15l/fdprN8QdP/Yhe/z4h/yBT2G/OPZJyGJQ
qD7O9pFLi4Wynl3N6ydXRx+FQeRQL/3mwPesmIj1c7hf8OvnsljE9iLLIsZG
eTyyTApxybLJ8ilNr5EkqXblXYf2mrXXsuWOZU8R/rAtyDLI9s8OMcivj7PP
CxWJhSyHyvSTGwUOpbEoxCHLIp9Dfn+FUEyE/Y/7gVCfBdbP+SxCvWuIRbgv
wflxpsvnkc8kn0u2Ds9nVIhVWfo9SZK6VtHrzL8+7bVrr2nLHZ89efw50030
zQ4xyPZLsP3jWB+X9rxQWiwU6p9ADlkGdfPc0CByqOq6ubQ+3H5MlFU/l8Ui
xkW2H51fT3emS+dRiEnkkmWT5ZPPqBCrJEnqr0LXpL1m7bXM65vXu8+ePP7Y
ejj4HPuMUCgOCjEoVB+X1S5UNBbqtU6uCQ7V2X87rb+CjYmwv+27fqa5qfVz
bCsqwqJQbBTikc8kGydRPpt8RoVYlaVXSpLUtYpeZ/716V+/ljkUueOzJ40/
fgxUhEF+/7hQfVyoj1xa/4Q0DtXRX3vQOJRWN9dtTJRXP1eERbZPt62nY2wU
4hEUYhJl2WTjJp9RafLPfUmSqlfedeizxsY6ZA4VYg8U4g9jIFsPZ/vFFWVQ
Wn1cFbGQXyc3bBwKPUdURd1c1vNEtn6uCIue5ia/+wfHPy02Ot1NPPfqM8nG
SZZLZJPPJ8uoEKskSWpW/vXpX7+8ru21zuv/TDfhFyx7+Fyq5Y8fA9m+2fBN
8FFFGWTr47L6yFVRJ9fNc0NNc6hsv7miz7X671iw9XN+W5HPolPcBIvYpzst
Ngox6YVuapxkueTHTCFG+awqIv96kCSpuMpca6Fr1V7LZ7rJzCF3/LjHj33I
nrQYyPbNtu1BlkGhNiFbHwefaOvjyKEsBtXdT26QOPTTLr1urkw7UV79nG0r
SouLcHzt80WMjfjuBcZGlkmWRzZOIpPIJcsmn0+WUb5mSZLUmM5MkX/92mub
1zuvf3KH7PH5Q/bYGIj8YT0cfBL7ZqfFQdPc5DahrPq4btqF0vrJNc0ha2nr
6KXfXNb7FdJYZPss5LHIxkUnusnPF9nYyPLIr68LxUhpXLIxk9WLAnqxJEkD
o9A16l/H9hoPcSct9rH1byH+sB4OvonvSgjFQVkMyuunnfX+hEF8djXNeuFQ
2ZioSJ+F0POtoTo63EvYPt1+bFSER5ZJPpdCbPIZFWJVSP55L0lS9cq7Dv3r
1r+uLXN87lj2lOEPYyAyCD7LxkHwaZZB/vOqRfom9DMWqsuKcqhMf4Uy7USh
+rmyLArFRnk8skzyuRRik+WTz6mQ/HNckqT+Keva9K9je41b5vjcsezJ409a
DNQtg4rUx5VpF7Ic6uczQ2mWVf9XJiYKcaib+rmiLPLbjEKxUVp8ZJlk4yTL
pRCbfEb5en4J+deCJEnFVeZaS7te/evaZw65Y+Mey560+CcvBrL94qpgUF4s
RA5V0S5Ul3XLoTJ954rWz2Wx6Aku3Kd7mkuPjaAQj0JM8rlkY6YQoyynQvLP
cUmS+qesa9O/ju01bq99y50Qe0L8od9Ji4HS+mZ3w6AizwvltQuNEoeK9lkI
1c91y6K82MjnUShG8rkUYpPlU4hTacySJGkwlHa9+te1veYtc3zupMU+Rflj
Y6CyDMqrjyvzvNCwcKiqmKhIW1GvLMriUR6TQlyybPIZFWJVlvzzXZKk6lX0
evSvY/86tz7AciePPVn86ZVBUFEG1RULDRKH8vpwF62f65ZF0BNcdmzk8yiP
SZTPJsunEKd8+eezJEnNK+ua9a9ve+1b5lBZ7PH5kxUDQfRn3TCoTH1cFe80
rZtDtCpjoqz6uby2oiwWpcVGReKjLCZRJ7psPlmdkiP//JYkqX/Kuz5D13SI
N2QOlcaeIvFPWgxUhkHk0M+6yQxKq48b9HYh36qIiYrWz3UTF6XFRn5dneVR
KEaCQlyybPL55DMqjVdlFLoOJEkqpm6vu7Tr2L/erS+gfwhxB/JjH8ufUB1c
KAbqJQ6CyvTT7iYW6pf1q34OCrUVWRaF+i7kxUZp8VEek6Anu6lssnwKcSqL
WZIkDZ7Srl//Orc+wPqGaS6fPWnxT14MlNcnwcZB5FAeg6BhqY+jVcWhOliU
FRulxUehGMlnkq2/y+NTiFMh+ee0JEnNKe96DV3j09xU3tj6tjT2+O0/ofgn
Kwaqi0GjxKFe6+eKsMjW0aXV05Xhkc+kLC7l8SnEqSyFzm9JkvqjaQUVusZD
vMnijs+eMvxJq4cL1cXlMaiO+jiqn5ZXljwO1cWitNgoi0dFmGS5ZNmUxqgQ
q4oodK5LklStyl6Xade37wesj7C+I4s9WfzJi4HqYtCgx0K0Ilysi0WhvgtZ
sVEWj7KYFOKSzyafT1msKqK0812SpOrUzbWZdp37/sD6Cp87aewpwp9QDFS2
T0KdDBpUDpVlUaitKI9FRWIjn0dFmJTGJcumEKPSWFVUaee6JEnVqdvrM3St
+/7A9xc+d/LYk8afIjFQUQal9UvohUFNcIhWdUzUTVyUFxsV4VGISWlcSuNT
GqfSFDqnJUlqRkWv27Tr3vcPIe6E2FOWP70yyPe3w1gf51ud9XN5LOqFR0WZ
5HMpxKc0ToWUdg5LkjQ4KnIth3xAyFdYX1KEPb3wp0wcNMz1cb7VUT9XJC7K
io2yeFSUSXlsymJUHq8kSRou5V3nId8QYk4Z9mTxJysG6mccNCgcgvWDRd3E
RiEehWKkNCYVYZOv0PmYp7xzXJKk+tTNNZvlA9KYk8WeUOxTlD9lY6BRZBCt
SRaFYqM0HqXFSFlcCrEpjVEhZZ2zkiQNtopc42n+wfcjIe6kxT5p/CkTA40T
g2C9cCjEoqw2oyI8youPsuKkEJdCbCrCqSIqcp5LklSPerl2s3yC7z/SuOOz
p0z8k8WfvLagNAYNM4dgdbOoaGyUxqMyTApxKY1PZXglSdJwK+/6T/Mbvn8p
wp4s/vQSA40qg2j9ZlG3PPKZFOJSiE15jOqGW5IkDa7KXOtp/iLkW3z/4/un
bvgjBk1YP1jUC49CTApxKY1NeYzKUplzWpKkZtTNtZ3lK0K+JeSDfD/VC3/G
mUGwotuTxaJuYyOfR0WYVIZLRRlVRt2c85IkVaOqruM8f1GEO3nsCfGn1xio
DIOGiUOwMttVNjbqlkchJqVxKY1NZTjVjaq6JiRJSlcd126ev0jzMyGfFPJd
3fKnihhoGBlEq4pFZerqemVSFpeK8qkX1XF9SJI0WXVew3n+I83vdMuefsRA
w8ogWt0sKsujNCZlcakon8qqzmtBkqRyqvr6zvMnaX4ozW+V4Y8YNNWqZFEW
j6pkUhk+9ZtfkiT1T71e/0V8TFXsyePPuDKIVnbb6+JRFpPKsKlqVkmSNHzq
xlfk+Z8s39VP/owag2jd7IdeeZTHpCJcqoJTkiSNh8r6kzz/lOff6uDPqDKI
VheLqmJSL3wSzyRpeFX39V7G9/TKHjEo37rdN1XyqBsu9ZtTkiQNj3rxJUX9
Vd38GRcGWesHj8owqSo+SZIkhdSNLyrj68Sf7qyX/VaWR71wSZySJClPVfiW
bnxar35U1rZe92O3TKqSTZIkSWXUi8+qwmfKploV+7UKJolPkiRVqar8UZU+
UpZtVe7rKpkkdkmS1G9/UrU/lJWzqvd/k2ySJEnKU50+T9ab1XlsxCZJkppQ
v/yarHrr17ETqyRJ6lZN+ylZf6zp4yxJkjRokjVnTR97SZKkpiQbTGv6vJAk
SapLsuG1ps8dSZKkspKNhzV9nkmSJMlkRa3pc1WSpOGRTCaTyWQymUwmk8lk
MplMJpPJZDKZTCaTyWQymUwmk8lkMlnH/n9cZljP
    "], {{0, 470}, {418, 0}}, {0, 
    255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> ColorProfileData[CompressedData["
1:eJyVeQVUVF8X77mTzDAM3d0l3SAxdHeDwABD59BgUCKhIggopYIKgggWIWIh
iCgiqICBSBiUCioogvIuod//+39rvbfeWeue+c0+++w8cfeMoG+kfQACABBD
A3f25AQSlUpOcmCAvzhFxAQHRlD8zSJiKYEUqrovBBNTueEOcKeSo6LCEDBX
eEQs1d5EX8DVzV0AOwkwgBXQAxagTPaLiSLZ2lpucP/5/O+2PAw2BIKnMhuy
/nf8/9oY/SkxfgBAtjD29Y/xC4fxVQBQmX5R1FgAMOowXTghNmoDe8KYhQob
COOoDRy4hTM3sO8WPr7J42hvAOMGAGgIZDI1EABiG0wXiPcLhOUQn8NjTBH+
wREw6zyMdfyCyP5wLHbAPDvCwyM3sCuMJXz/ISfwv2T6/pVJJgf+xVu+bDYa
w+CYqDBy0v9nOP7fLTws7o8OMfghBFFN7Td8huP2PDTSYgMTYDwf4WttA2Mm
GP8I9t/khzECHxRn6rTFj+DxizGAYwbYYCzvTza0gDEPjI0jwqwtt+m+AcHG
ZjCGVwgiMTjWzHF7bjYlxshhW2YFNdLe5g8OoBqQtuc2kqmbejf4u+JCnUjb
8p8HUcz+yP+WHOTosmUzEh8f7GwNYyKM2WJCHSy2eJAiyUEG1n94qHH2G/aL
wFiTEmGivyUf6RVANbbf5qeGx/zxF5kdFGxmvY3LYoMcTbflNPiRN+3ngHEb
JYLk9EcOJcbV8o8v/hRDoy3fkQOUCKdtf5HjUbH69ttzv0SF2W7zo/CUMJMN
uhCMeWLiHbbnonRi4QW5JR9lHRVr67hlJ8o3hGxuu2UPKhFYAgNgCARAHPz4
gkgQAoL751vn4W9bI8aADKggEFCAzDblzwyXzZEIuHcAyeAjjCgg5u88/c1R
CoiH6b/+Urd6GRCwORq/OSMUvIdxOLAAYfD3uM1ZEX+1OYO3MCX4f7T7wbaG
wc/G2P/SSDDFcpsS90euAP0fTowRxhBjijHGSKK4UDooLZQl3OvBjyJKHaXx
x9r/8KPfowfRk+gh9Dj6hXdwOvVf/ggAKzAOazDe9tn3nz6jxGCpKih9lDYs
H5aNYkNxARmUMqyJhNKFdavAVINtyze8/7fs//LhH1Hf5sPJ4xA4dpweTuLf
M4lSRJW/UjZi+s8Ibdnq+zeuBn9H/q3f4B+R9oc/Lf7NicxGXkH2IO8ge5Ed
yFYggLyFbEP2IW9s4L+r6O3mKvqjzX7TnlBYTvD/6CNv69yIZIz8efkZ+bWt
sVhKYuzGBjOIjEqiBgcGxQqQ4JOfImAW4Se7Q0BRXgE+tTfuka1j6qv95v0A
sT3+D40yDcBOeG/gBv5DCzkKQH03AOy5/6GJeQDACZ/Ll574xVHjt2iojQ4N
8Jv3EyfgA8JAAvZHEagCLaAHjIA5sAGOwA14wVEOgtczFSSA3SANZIE8cAQU
gzJwEpwG58AFcBm0gg5wB9wDD8EAGAKv4NXzDsyBBbAMViEIwkJ0EDPECfFD
opA0pAipQzqQEWQJ2UNukA8UCEVAcdBuKAPKgwqhMqgKqoMuQdegO1AvNAi9
gCagGegL9BOBRBAQLAhehBhCDqGOICEsEI6IXYhARDQiGZGJOIw4jqhGNCBa
EHcQDxFDiHHEHGIJCZC0SDakIFIGqY40QNog3ZEBSCpyLzIXWYKsRjYi2+E8
P0WOI+eRKygMihklgJKBV7Apygnlh4pG7UUdRJWhzqFaUF2op6gJ1ALqN5oO
zYOWRmuizdCu6EB0AjoLXYKuQTeju+Hd9A69jMFg2DDiGDV4N7phQjApmIOY
SkwT5jZmEDOFWcJisZxYaaw21gZLxsZis7Cl2AbsLewT7DvsDxpaGn4aRRpj
GneaCJp0mhKaepqbNE9oPtCs4hhwojhNnA3OH5eEy8edwbXjHuPe4VbxjHhx
vDbeER+CT8Mfxzfiu/Gj+K+0tLRCtBq0drTBtKm0x2kv0t6nnaBdITARpAgG
BE9CHOEwoZZwm/CC8JWOjk6MTo/OnS6W7jBdHd1dujG6H0RmoizRjOhP3Ecs
J7YQnxA/0ePoRelJ9F70yfQl9FfoH9PPM+AYxBgMGMgMexnKGa4xjDAsMTIz
KjDaMIYzHmSsZ+xlnGbCMokxGTH5M2UynWa6yzTFjGQWZjZg9mPOYD7D3M38
jgXDIs5ixhLCksdygaWfZYGViVWZ1Zk1kbWc9QbrOBuSTYzNjC2MLZ/tMtsw
2092XnYSO4U9h72R/Qn7dw5uDj0OCkcuRxPHEMdPTgFOI85QzgLOVs7XXCgu
KS47rgSuE1zdXPPcLNxa3H7cudyXuV/yIHikeOx5UnhO8/TxLPHy8ZrwRvGW
8t7lnedj49PjC+Er4rvJN8PPzK/DH8xfxH+Lf1aAVYAkECZwXKBLYEGQR9BU
ME6wSrBfcFVIXMhJKF2oSei1MF5YXThAuEi4U3hBhF/ESmS3yHmRl6I4UXXR
INFjoj2i38XExVzEDoi1ik2Lc4ibiSeLnxcflaCT0JWIlqiWeCaJkVSXDJWs
lByQQkipSAVJlUs9lkZIq0oHS1dKD+5A79DYEbGjeseIDEGGJBMvc15mQpZN
1lI2XbZV9pOciJy7XIFcj9xveRX5MPkz8q8UmBTMFdIV2hW+KEop+imWKz5T
olMyVtqn1Ka0qCytTFE+ofxchVnFSuWASqfKL1U1Vapqo+qMmoiaj1qF2og6
i7qt+kH1+xpoDX2NfRodGiuaqpqxmpc1P2vJaIVq1WtN7xTfSdl5ZueUtpA2
WbtKe1xHQMdH55TOuK6gLlm3WndST1jPX69G7wNJkhRCaiB90pfXp+o36383
0DTYY3DbEGloYphr2G/EZORkVGY0ZixkHGh83njBRMUkxeS2KdrUwrTAdMSM
18zPrM5swVzNfI95lwXBwsGizGLSUsqSatluhbAytzpqNWotah1h3WoDbMxs
jtq8thW3jba9boexs7Urt3tvr2C/277HgdnB26HeYdlR3zHf8ZWThFOcU6cz
vbOnc53zdxdDl0KXcVc51z2uD9243ILd2tyx7s7uNe5LHkYexR7vPFU8szyH
d4nvStzV68XlFeZ1w5vem+x9xQft4+JT77NGtiFXk5d8zXwrfBf8DPyO+c35
6/kX+c9QtCmFlA8B2gGFAdOB2oFHA2eCdINKguaDDYLLghdDTENOhnwPtQmt
DV0PcwlrCqcJ9wm/FsEUERrRFckXmRg5GCUdlRU1Hq0ZXRy9QLWg1sRAMbti
2mJZ4Bf2vjiJuP1xE/E68eXxPxKcE64kMiZGJPYlSSXlJH1INk4+m4JK8Uvp
3C24O233xB7Snqq90F7fvZ37hPdl7nuXapJ6Lg2fFpr2KF0+vTD9W4ZLRnsm
b2Zq5tR+k/3ns4hZ1KyRA1oHTmajsoOz+3OUckpzfuf65z7Ik88ryVs76Hfw
wSGFQ8cPrR8OONyfr5p/4gjmSMSR4QLdgnOFjIXJhVNHrY62FAkU5RZ9K/Yu
7i1RLjl5DH8s7tj4ccvjbaUipUdK18qCyobK9cubKngqciq+V/pXPjmhd6Lx
JO/JvJM/TwWfel5lUtVSLVZdchpzOv70+zPOZ3rOqp+tq+Gqyav5VRtRO37O
/lxXnVpdXT1Pff55xPm48zMNng0DFwwvtDXKNFY1sTXlXQQX4y7OXvK5NHzZ
4nLnFfUrjVdFr1Y0MzfntkAtSS0LrUGt421ubYPXzK91tmu1N1+XvV7bIdhR
foP1Rv5N/M3Mm+u3km8t3Y66PX8n8M5Up3fnq7uud5912XX1d1t0379nfO9u
D6nn1n3t+x29mr3XHqg/aH2o+rClT6Wv+ZHKo+Z+1f6Wx2qP2wY0BtoHdw7e
fKL75M5Tw6f3npk9ezhkPTQ47DT8fMRzZPy5//PpF2EvFl/Gv1x9lTqKHs19
zfC6ZIxnrPqN5JumcdXxGxOGE32TDpOvpvym5t7GvF17l/me7n3JB/4PddOK
0x0zxjMDsx6z7+ai5lbnsz4yfqz4JPHp6me9z30LrgvvFqmL618OfuX8WvtN
+Vvnku3S2HL48ur33B+cP86tqK/0/HT5+WE1YQ27dvyX5K/23xa/R9fD19ej
yFTy5qsAEn4QAQEAfKkFgM4NAOYBAPAeW3XedkPCLx8bdbEzZIQgIdVRHGg8
hgYrT+OGy8DfImDoyMRWBjxjGNMDFhXWCnbAEcrZz63Kc4R3jl9PIF9wUBgv
oiHqJhYqHi7hKakvxSu1KH1vR6lMqKy2HJ3cG/kmhVRFOyVBpY/K11T2q9qp
8ai9U2/USNQkaeG1nu6s0PbX2aHzRbdVbzdJX5+g/8bgpmG9UaVxgcleU7KZ
rjmH+aJFn2WjVaV1lU2H7ZQ92oHTkcuJwRnpvOay6gbccR5ET7pdqF1LXpPe
Az63yVd8a/xK/XMpSQGBgY5B+sHKIVKhgmGc4fQRyIhvkZNRA9HXqWdiDsfu
i8uKb05EJVGSb+8Ge8T2au4zS/VIi0s/nFGcmbJfef9UVv4B22zRHNpckIc4
yHhI4rBOvvURlwL3QvejrkXOxY4ldsesj1uUmpTpl+tUaFQqnZA5KXVKvsqi
OuP0+FmzmobauTrGetHzCg1aFwwbrZpcLnpfCrocdSXh6t7m9Jb9rdltedfy
24uvV3TU3Lh6s/vWyO3xO8OdTXcDuji67neX3EvoCbi/q9flgd1Diz6TR6b9
jo+jB04NvnhK+0xuyGDYbMToufoL0ZfElyuvpkefv74zdvpNxnjghNOk9ZTV
W5t3Nu/NP2hMs0+Pz+TOKs+Oz52bT/5o+onmU91nk89TC6cXE794fbX5ZrUU
stz548DP1l+G6+vb+VdAopAzqHH0FGaBBolTxQfRVhDGiVL0CQz3mDiZk1ie
sSmyp3O85lLhzuIZ4OPidxUoEOwQGhVeElkWnRV7JH5agiqpI0Uj9Uz65I4Q
GRWZ37L35A7LuyjwK3xQbFSKV9ZWgVS6VXPVbNSZ1Yc1SjU9tHi1RuFV4KnD
qTOie0zPgyRGWtUfMrhkeNCIYrzThNHkvWmHWbF5vAXF0tcqyDrSJtzW187G
XstBypHbieiMcF52+eA67HbXvdGj3DN3V7JXsLerjyFZzpfDD/Kb9R+idAU0
B9YElQRnhkSGuoXphYtH0MErYSJqLPpbjGCsd1xp/J2E54lTSfPJK7tp9/Dt
ldgnkIpJfZPWnJ6fQc302u+U5XogODsjpzL3Ql7zwZZDVw9fyr9wpK7gbOGp
o+VFxcX5JTnH0o8nlUaWBZYHV6RW3jopeepctfjpwjNPz67UEs9x1QnXS8Hr
QO2CTqNhk9VFt0thl7OunL56s3mwZax1uu1rO/I6e4f0Da2berfUbgveQdyZ
7Oy529xV211+70jP/vvJvdQHsQ9z+jr62R7vGXj9hOup7jPHoYDh1JGzzx+/
+PaKaVTmteVY1Jtj49cnnkyOTU2+nXuPhrOfNjM4xzgv/1Hlk9hn+s8/Ft4v
jnx58PXat6qlfcvO38W/L//oWEn+qbVKWDP8NbOdf1loDlGJ9EJJorHoRcwM
dpZmErdIiyeI0pGI7vRpDA2Mg0zrLKKsRmwh7Ps5TnJe5ermvs9zj/c6XxV/
ooC+wE/BM0IWQnPC2SLiIp2iXqIrYkXi8uIPJAIlsZK1UqZSH6Szdkjs6Jbx
kwWylXI75Z7Lx8FvN02KlorTShnKfMptKvYq86r71fjVWuG3lmmNfZpsmue1
SFpPdvrt/KSdooPVKddV1h3WSybxkdr0bfRfGAQZrBtWG9ka44zvmuw2VTad
Nas297TgsBi2LLZysKa37rXJsNWy/WbXZB/qIO7w1rHKaZczp/Mzl3xXU9d1
t2b3MA8Rj9eeJbusdy17FXmLel/1Ifm8JCf6Cvk+h8+RIIpJgFqgRpBZMDkk
PJQcphvOED4acTYyPEolai36LjU3xjaWNfZV3Ml4/wSxhPeJJ5KMkkaTw1JY
Up7uvr7n5t6ufXdTr6XVpZdkZGRG7vfIMjoglY3OfpZTmuueJ5K3enD80KPD
1/JPHdlb4FGoeZTr6ErRcPHlkmPHDh0vLK0qu1J+r+J55eyJ1VN0VQLVSqdN
z3iejazZW5tz7mBdaj35vFoDseHLhY+NKxcJl/guK16xvZrSfLXlR5vGtaj2
0usXO9puXL/Ze2vpjknntS6H7qWekl6lB8/6DvX7DJg9IT3THw57QRydm+yf
Xfq2spH/rd/7NhpGFYCjaXCFmgWAky4ABV1wnTkE1514AGzpAHDUAAixAIAg
9AFIc+Lv/QHBtw0G0AJGwAH4gTiQB5pwlWwD3EEAiIGry3xwAjSCm+AxmADf
4MqRB1KATCBvKAEqgBqg+9B7BAYhgbBExCAq4TpvHa7r4pHXkL9RJqijqEm0
Ejob/QajiSnFrMIV1gMaNZpaHDeuAE+Lz6HF0x4hcBFq6ZTpOojaxHZ6dfrr
DKYMrxhjmRiYLjAbMg+yOLIMstqwPmHzZvvBXsqhzTHGuYeLm6ud24sHx9PB
G8+nzPeV/7IAVVBFcE2oR7hEJEh0pxhRbFz8ikS2pK8USVpsB3HHqswn2bdy
Q/LNCimKCopjStnKKsqfVdpUC9WS1P01LDXltdh3ErVldcr1pEmH9HsNPhvR
GLOacJrymImYK1tYW0ZbHbfusvliJ2zv4nDYsccZ5WLomuXW58Hm6bur3uut
D4bM6IvxXfJ75z9KmQ2kD7IILg75ELYzvCjiU5R5dH0MITY67mWCcWJbskxK
zR6BveWpbGkFGfjMtP1LB0Ky53LzDoYfbi5gPMpV9LGk7rh3GVv5QOWhkyan
lqrzz7Ccza5ZPhda9+X8kQtGTYwXFy+/vzrdMtf2oX2qY/EW+x2Du17dPj0O
vboP5R5JPlYdjHj6YwT1Ejd68g3zxM13xOndc6SPTZ9Xv6h+M17Gfz/048HK
9M93qy/Wrv468tt3XX7z/NjIPxYQABPgBIJACigBbWAKHIEPCAcpIAeUgjpw
DTwEr8EChIa4IPnN7CdBRdBFqB/6iKBHKCHcERmIy4h3SH6kN/IMch6lispE
DaEl0WnoUTj35ViADcIO0RjRtOHkcPV4SXwDrTLtLYItYYoukYgjFtML0l+E
69dXjAlMbEytzM7MH1n2sOJZj7PJsD1gj+Rg57jNGczFwnWbO5JHhGeUt5TP
lZ+D/4VApaC/kLwwEH4mcl40U8xTXBmu5WYl+6SuwLdYvkyG7G65WHk/BT1F
gmK/Uq6yhQq7yqLqC7Ue9RaNas2DWsk747VzdNp0v5OU9P0N8gxrjFqMr5tc
N71h1ms+YYmwkrJ2ttlv22o37yDi6O1U6TzmKuQW4t7iid3l4lXm3e0zSO70
rfPL9g+m2AeYBroFpQffDqUL8w3viOSKSo5+HaMfWxdPnxCV+DBZMCV+98Be
lX1n0rjTizLx+1Oy5rPJOZN5yYfk8xFHXhdeKoovUT72pfRSeVyl5omfp2qq
FU9XnvlQI14bdO5iPfv5igvajR8vll7WuNLfTG5Zbatut+sAN+puWd5e7DzZ
5XtP877gA9TDR4/iH2MGcp8QnlYPeY9YvQh7Vfv6wzj/pO3btPc3Z9jnjnwS
W3j0tWj54IrZquLaiV9vfy9u5x8FcIAB3v2CQBqoAgNgC7zg3O+Bd34VuAru
gzF43xMgMUgP2gWlQOXQDWgCgYOzTkYUIwaQrEgK8gaKB5WKmkW7oR9hDDA3
sNrYOzSWNK9xMXh6/EVaZwKS0EoXTVQg/qDvZihljGNyYzZjMWe1YzNnV+OQ
5FTh8uZO4onl9eVz5LcWsBK0ErIUthKxF/UWixE/JFEveV9qZgedjJpsgFyZ
/LAil5K/cpPKqpqt+iPNnJ1uOmjdI3pr+hYGGXAGW407TG6a9putWlhYtljL
2jTYydq3OBo4DbuEu+HdGzydvRh9aH29/T0obwO1gvKC34fah/VFWEU+ifag
TsemxPMljCXdS7m9p3KfU+rP9KpM5yz+Aws5N/IOHgrINyngLHxYFFC8fCyj
lLGsukK18tHJgCqouuKM+tmh2rg67vr7DfsaTS7KXTa+uq+lui2/3a2D/cbI
rfI7bnexXWfvKfdc7zV6MNKX2C83gBxceDo9NDhS8EL8ZeWr36+NxnLfPJyg
n3SaOvV25r3Ch9DpUzP3Z2fn0R95Psl/NlxwWSR/8f9q+03o29LSoWWe5frv
Gt/Lvq/8cPnRssK2Ql1pWVn9qfcz82fvKnHVYfXY6sAazZreWuLapbWZX4K/
3H4V/nrw69dvhd/+v4/9fvj797rCOmX9+HrfRv5jApQUN68PiKAPAHpsff2r
GADYQgB+Fayvr1avr/86DRcbowDcDtv6D2nzrmEAoGJhAz1s+5n67/9y/g/I
Mub5
      "], "RGB", "XYZ"], Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSizeRaw->{418, 470},
  PlotRange->{{0, 418}, {0, 470}}]], "Input",
 CellChangeTimes->{{3.740727608547842*^9, 3.740727611380784*^9}},
 CellID->1364008706,ExpressionUUID->"f3c367f3-b11e-4831-831b-8c378e2d5073"],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJztnQm4HVWV71cP773GZzu3Q6ttBAkQJCIIIjIkzsgQFGlFoRmUENEWZFDS
IpOKHRUkH6KgKLaCPgFBBARspgYEAqSNEAMI2qAMChIGW0IDSb3zr1Pr3nX3
3bumU+fsOuf89/f97j2nqk7NtX61du2qeuU+B7x7/l+KyMF/0/nz7r0/Ofeg
g/ZeuMtzOl92/djBH97vY/t+aLuPHbLvfvsetMU+f9XpePFfiHynw18LCwsL
CwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLCwsLi7f8BSGEFMDC
UrXE3mcJIeMLy3iV2PsbIYSUhWX4S+x9iBBCmoal3SX2/kEIIYOGJX6JvQ8Q
QkhbYBlcib2twV8SQkiA2PGJTupfoWMIIaMCfTRchb4hhIwL9FG7yrB7568I
ISPHsHuJpVxpo3ti7/uEkOGljU5i8ZfY7om9rxJCxo/YTmKZLDHc08Q+9NeE
EJIRy0t0UW9lkP6hYwghsemnl+ij6mUQ/hmEc/4XIWTsGYSbBuGjcSr99E+T
3un3vvu/CSGtoS2uaspJdFG4xPBP086JfbwQQtpL026K4aNRLm3yTz9c838I
IWNDPxzVJh+NYmnaQVXd04tzet1f/4YQMrT021d1vFTXR+Pqoqbr4ZrwTy/O
aXL/XosQ0hoG6a6qXmrSR+NYTxfDP1XcU9c3/TwenkEI6RsxXVbVS2Wd1G8f
DWvpdw5Uxj95vqnilrL79/8lhIwNvXqvjKfynFTWR+NcT9eEg8rmQCH/YDti
e2OfeWaHv+3wLIdne3hOgOdW4HmEkJGjSgwIxRFfzHHjEmIVYhZiF2KYdVKR
j6rmRqPqoX45qIp/cG6BbfmCDi/tMKPDOh1eZVjXYaaH9XJYvwc2IIS0jl6O
6bxY4YstbvyxsQmxaoZ0YxdiGGKZ5ku9+GhcXBTDQW7921odnr3WWmu9/Mor
r/zEvffee/F///d///7xxx9PCCFkGEDMQuxCDEMsk27etJbk19fRRf1xUNVr
QDhneBa22/Lly0967LHHkocffjj54x//mDz44IOEEDIUIGYhdiGGIZZlLnqW
TM+L6uRGo+yiQTrI1wYB2wfXBf/uiiuu+OQjjzwSfV8ihJBeQSxDTENsy2Kc
bdNQNzfq1UVtLP10UN51ILf9G+pRX3733Xdf/MADDySEEDIKIKYhtsnktSK3
fV2Z3GiUXTQoB4XaYdt216hDXbuz3X7fKQkhhIwCiGmIbTJ5nSjPRXm50ai6
KJaD3Pt+kK+iXeS62G73338/IdG59tpro88DGX4Q06Tbru45MvW+JNdHg3ZR
G0ovuVBVB4VyIHUQ2tqj3f569913X0LKceuttyY//OEPkffnDnfTTTclO++8
c3C4ov5tYxDzi3WLafzsZz/z9v/P//zP5Gtf+1rypS99KTn11FPT77HXC9YH
5lnnZcmSJcmFF144heXLl0efz3FEum3AnyuT99GGXBSqp6vqomHJiQbtIN/z
D/S+Zdz3hXvN1r/nnnsSUo7FixenceenP/1p7nA33HBDOtyvf/3rWv0Hwemn
n55SZti8+f2v//qvtB+GqTsvRxxxRDoO5dBDD03Hq/0vuuiiiX5f/epXJz6f
ffbZja+XpUuXpuO20w+hy37ddddNrFO7HMq3v/3tUtNuYl2SLtK9T+l5Waxz
n9fgey7DoFwUs8RykOsffc4Gts3zO2zwu9/9LiHF/OY3v0nmzZuX8ulPf9o7
DM6P8R/5A4bDb6r0HyTf/e53U8oMi/P80PzqesEwdebjyiuvTH9/ySWXpP/P
P//89P/3v//9KePff//9J6aP9YhtgO66Tpsib1mLlh3rE/Op/e+8887ks5/9
bDrMZZddVnl8pD7Svdf2+TL5rAX7fKGierpRdFEbHaTPT5j129/+NiHFXHrp
pWmMQF0L/q9YsWKi37Jly5IPf/jDaXf8RwzFZ+QPZfq7XHHFFRPOA/iO7tdf
f31yyCGHJCeddFLaHXVYGN+Pf/zjid/edtttaT8Me8stt0zEa43tGEZjo3Lj
jTem3b/zne9MdMN0UN+k0/XNL77b8WBa6I51Y6f7rW99K7hedZr4jGniP4Y/
55xz0s+6vrEO7e+wbDrvmA+shzPPPHNiHeetF52Gzt8XvvCF5I477phYTgXj
820PzJNdfh0nlgXTdZcR3XTdhNZz3rq02+vrX/96ctddd0U/HtoOYptMPl+B
LmrGQ0046Jky9dlxaF+/IfZpUszhhx+efOYzn0k/77TTTskPfvCD9DPOYfH9
4IMPTq+zX3DBBel3gNhW1N+dDoZBv29+85tp3oT/+I7P2m/RokVpHnH77bcn
J598crJgwYKJ3+v4MV1ME/P8i1/8Iq3bQneMA3Hv+OOPT8F3zAeue6E/ztsx
LSwvfm/nyTe/GB798Hucx9vlxXfUYeI75tO3Xu3y4j/m1fb/t3/7tynL5wPz
pesU08M489aLLiuGw7LiM9YFxoPtqusB84J1jO+YD6y3M844I/0OP+h0MZ68
edV1VLSe3XWJbhgfwHdsc/T/0Y9+FP14aDuIbVmMs8+gUx816aJR8VCVXKiq
g9wcSB2E9owv7PBq1EmTfHDujeP/qquuSr+jvh/f8Rnd8Bnn2zo8rlug269+
9avC/u60TjzxxDQu2W4/+clP0nnQcdl+iI3ohv/4jt/iOj4+I34dc8wx6W/d
6WAZgO2G+cF5Of5jmjqPyLtC84vh0Q/DhNaHHZdv/SLX/NSnPjXhEjjhl7/8
5cR8uuvDBeO126doveA6Dvohj8H863Lgvy6rftd+ul6Ql+m0dLq67JhXrHN3
/tz1F1rP7rq009bhsT3d7Uamg9iWxTh9NqrGPzc3quOiJnKiQZY6uVCZ+rhe
HYT2jC/qsJHdz4kf1M/suOOOyUEHHZQcffTR6WeA8+Brrrkm/Yy4q8Oju3Yr
6u9OC91xncE3H//xH/+R7LffftO6oxt+g3N0/B7n2XZ4nV+0s9BpfuMb30hO
O+20iXHofLpgnL5lUNAN/TCMHU/Z5XWX/eKLL56YV3TDPPqWOW8eitYLvn/+
85+fWEZsV8yjb/7x3w6rYDh3uqF51WWy+4NvPfuWQ/c9S2j/IJMgtmUxTp/b
3YSLqtTPtSkn6kd9XBMOQnvGF3eYjWupJB8c+8cee2xat4U6EfxHN7TdQl0J
PqPdsQ6PYbRbUX93WmiX/PGPf3xKt6uvvjrND3Rc7m8wPsS/733ve97++C3q
fNAPw6Abro9g/nUYTBPLqPOky4jvmH5ofjFu9MM5PL77lteOy/09fINlxueF
CxdOzBuWx/4W82B/h3ZtGAY5DcbrG6ZovSC/wPUlTFenp8uKfnZbYTi7vBjO
nS7m2912GA+GOeqoowrXs7su9TtcpOPDvGI6sY+JtoPYlsU4fa9Ev13U5pyo
qVwo750NRQ6y7w9SB6E940s6vAZ11iQMYsIOO+yQ/rfdcZ0A3W+++eb0P+LM
z3/+87SOCd8BznFx/0hef3d62h/jx7hxvQLfUQ+E6+X47P4G49FxIm5qd3xH
mwbMA9oW4zvGh364HoPv6I5rIIhvmEfkDJiWjg+/1enis28dod8pp5ySzq/O
i45Lf/vFL37R+1vUS6H/CSecMDEc/qPuUoeZP39+2g1t6jANHaeuC13H6F5m
veg0MH/4LbwAP6CfLjumhX5ov6frH8NjWP2u08Vn/BbXh/Q70N8CtMXGMHnr
ObQudV/AOsF3TCf2cdF2ENuyGKfvQrIuct9blOeiXurnhsFDTdXH1XEQ2jP+
fYeNEYNIGNTF49h3u+N8HN1x/g80noCvfOUrE7EFwxb1dznrrLOmDI92buiO
nGbffff1/kbHiXil3c4777wp4/nyl7880Q/n8Nod47XfdVidR+0Xml9dR7qe
1N0K2nvhfD+0jrF+dHpYPuQItj+mi3HYceKeI+Qo2h/dMJ9l1gu23YEHHjgx
LkwTeRX6YT4PO+ywtDvaOmDcmJZdFt3uOl1tM2LXg4K2eJieb72769m3LnEt
S79jnjE+XOeKfVy0HcS2LMY9X+q7qN/1c/0uvV4Xqlof57aLK3KQvvPutaiT
Js2A9gC99LfgXBjttfS6QRGf/OQn03Z0vn4YT9lpY9gm10eVZUaMz+uPfFIp
O86i9VJ2easuS5PrGftAk9MeBxDbZPLdeGVdZNvRNVU/F/M6UVPXhfLeHZTn
IN/1IOsgtGd8WYdNcf5Hhhe0Rdh+++1TcK099vy0Ba6X8QaxLYtxfyf5LnKv
F4Vc5HsWXduvEw0iF3Lr46o4CO0Z/6HD63CuRYYXXHc499xz03ql2PPSJrhe
xhvEtizGvVDquaiX+rlh8FDVtgl1rgkVOQjtSF7RYTO0ySGEkFECsS2LcS+W
8i7q5VpRG68T9SsXKnNNqMhBaFOPdiQzOmyO66OEEDJKILZlMe4lWcyr6qKi
+rkmc6J+laavC5Wtj3u2TPWQz0E4P0A7kld22ALP8SKEkFECsS2LcX+fxTyf
i6yHni2918/VvU7UrzKIXKhsfZzrIJwfoB3J2h3e8Mc//jEhhJBRArEti3Ev
zWKe66Kq9XP9zIn6VXrxUJ1cqKg+zjoI5wdoR/KqDlvG3l8IIaRpENuyGPey
LOZZF1Wtn2sqJxp2D/lyIV/7uLx2CdZBaEeC9+ZuFXt/IYSQpkFsy2LcP8h0
F4WuFRW1nyuTE8X2UD/aaveSC7ntErAdkKO+XLrtSGZ22Dr2/kIIIU2D2JbF
uFdkMe+lMumiqvVzeTlR29pwN+GhqrmQ3hPsq49z2yVgO2guNEO672/fJvb+
QgghTYPYlsW4GTKZE6mL7LUiX/1c6FkL/cyJYnioavuEsrlQqD5OHaS5ENqR
4L2528beXwghpGkQ27IY90qZzInURaH6uao5UZ32Cm33UJU2craddpn6OOug
GdJtR4L35s6Nvb8QQkjTILZlMW7tLOZZF5Wtn9M4W6ftXBs91K86OddDoVwI
61/r43B+sI5035v7ptj7CyGENA1iWxbj1sli3owsBuq1Il9OVPY6UT/r5not
ZR1UxkNu+4TQsxOq5kLYHjg/QHtGvDf3zbH3F0IIaRrEtizGvSqLeW79XJmc
qOgZC3ntFWLd09rPdnJVciG3bYLNhbA9cH6AdiR4b+5bYu8vhBDSNIhtWYyb
mcU8rZ+zOZFts1AnJ+pHu7leSz/q5IraJ4TayLn3CmkuhO2B8wO0I8H7Ct8W
e38hg+fBBx9M7rvvvvSd1cuWLUufTb1kyZKx5m2LVidv/8Ka9H9ZdvvKU8nn
f/Tn5Orlj0TfpmQqiG1ZjFsvi3laP/cKmX5PUajtXK/tFUbJQ75n+ITaJ7jP
7nFzIWwP3Nu1vnTfV/j22PsLGTxwEN5PiudBPvLIIwlLknzotNVT2Pfbq6d1
c9nrm6uT9361M+w3n0iuuoUuahOIbVmMWz+LeVo/N0P814k0Jwq1Vwg962dU
PFT0HJ8qbbXzrgvhfADbA3kq2jPifYXviL2/kMGDPAgeYpkse39rTbJ3xyvK
XuZzUff3nLQm+dw5j0ffrmQSxLYsxm2Qxbx1ZWpO5LtOVLUNd9FzftrqoSbb
yfnaJ7j3C/lyIeSpaM+4SYftYu8vZPDgvdorV66MHfpbVfb4xpqM1cnuX1+d
/u/S7d7ttmaiO74ru52yOtn1hKejb1cyCWJbFuNmZTHPlxOF7icqWzfXj/bb
vZZ+eKhMOzm3rbb7/B43F0KeivaMeG/uO2PvL2Tw4D3ZLFPL+762Jtnt5Ene
97XVabcuqyfo9lsz5TvY+ug10bcrmQSxLYtxG2YxL5QT2fYKoTbcoXZz4+Ah
Nxd6plSrk3PbyGkuhDwV7Rnx3tztY+8vZPBcffXVscN+68p7TkqSXU7q/p/g
K93/J1yaJE+v7v5/jztMxhuPoIfaBGJbFuNencU8zYnctnNV6uY0DjdxjWiQ
HmrivqGq7eRC7RM0F0KeivaMeG/uDmW26VVXXTXB5Zdfntx1113JBRdckJx7
7rnR9zdSHWzHvHLZZZclBx54YDJ//vzk5JNPTh577LG0+5133onjO+0fKrju
NG/evInvqP877bTTkltvvdU7/PXXX5/2v/fee9PvZ5xxRrJo0aKqGum57Lw4
SXZaPPlfP//rxUmyZk2S/HZl9z++a7+dzfBbHE4PtQnEtizGbZTFPM2J8tor
1Gk318t9RLE91Ot9Q3Xq5DQXQp46W7rvzd2xaHvCOZ3hksMOOyyNTQsWLEhu
vPHG5Mgjj0wZ5L517LHHpjE09j4+7OR5aOHChen2hkuwvfEZrFq1KnnggQfS
z3ltHND/vPPOSz8vXbp04vc+t8BR2h/D2m4hb/WrvPP4jOMyOp+POK+bB13Q
Wdztj+/+x/cjfzw53HYZmy9Mom9XMgliWxbjZmcxz82JqtTNNXUfUds9VKWN
QtG9q772CTYXQp6KbfP6DjsVbU94aKuttprW3XoIOZJk8eTEE0+ciHVwFn6L
7meeeWay3XbbTRkGaKzDcDjfRjf8DuNG91mzZiW33XZb+hudximnnBJ9Px9m
Qh6Ca7B+Fy9ePNENPhDjlryCYTAsiuZO8Nns2bOnjFOLOk+Mh1COOeaYZO7c
uVVV0lN5S0eTb100+R881XHOTzs6fOsXut/f1uGSXybJk09PDqPDb/oJeqhN
ILZlMW52FvPyciKtm8u7p7VqW4VR8JDeJ5X3XNO6dXLYJri/C+9vn1e0PTUf
QuwH8MHvf//7CQ/hM/pfd911E8MiX1I34R4VOAifEf8wHD7jdxjfnnvumU4H
dTPwFD7DPci/MAw8pb7DZ4wL3WPv58NMyEOofxPHCSjwC7yinsJnX4FvUI+H
gnGgXg8FTnE9pPsK6uXQ305THYb8a1Bl289NMufY7v+5ny/f/bUH00NtArEt
i3GvkWIP5dXN5T33NO9+1mHyUN1n+eS11y6qk0N9Ke7vwjbauWh7arxAnRh8
AD/cc889Ex5Sr6in9DM8tOuuu6bjwPBwi37GMJpnIffB8Mcdd1zaPduH0vv8
8RnjwTTxGdPD99j7+LCTVy8nWX4Cb6D+De7Roh5yPYWiDvPV2fnyIXRTT7nj
fOqpp0rnYE2VLY8yHJ0kbzza6ZaRdj96cjhl9gH0UJtAbMti3MZZzCtTNxdq
v93rM37a5KGm2iiEPJR376pbJ4f7u97Q4V1F2xO+UIdY1EOa9yBPQU6DtgvI
hy655JKJPMaOQz2kbsIwp59+egraPmAYdEd/fMZ41EP4Tw/1Tp6HcH0G9WKS
+QjgO9ygHvK5Bt0ku47kFtdDaItgh/WN05dD9bPQQ6MFYlsW414r0+vm8u5p
7aeHyrSZ67XU9VDV5yj0em0IeSq2zZZSwUOoC8NnYOvltA4F13AwPPIa9ZD6
I+Qh9FdXof5OP2NY/AafXQ+xjV7vFLWX04J6MdSzYXvhHKMJD2lbB7jIug3z
hO++3wyi0EOjhXQ9tGUW68rUzRVdI6rzXIVR9VDetSGsQ9+1IbdODtsE9xm/
scO7i7anesOCnAS+QV0dhkEuo/1wjQeewjA2H9K2DtZDQNsxAHUMulkP6Xh0
Oph27P18mAl5COcUaDtgfYCiTijjId9zGqxTcD3I3Z8sWgadD23+6STZzIDv
rz9isvvmBu1uefVH6aE2gdiWxbhNspjn1s35rhGFnntapq3COHhI35depo2C
vnM11F4b9aW4zxjbaJemtjvco3VpVan7O1KPkIc0V0F7EJwHwClnnXXWxLWa
vGtA6ih4xi3WQ3AcxqvoOHFPkuZSen3ooosuatA0+eW1C5Nkk8Om8j8dHZ95
U+fzwqx/h/93U7c7+tvfbLiAHmoTiG1ZjNs0i3mh9tszZPo1ojwP6f2sw+6h
Om22Q89RCHnIbaNgrw2ph7aSBj1Ehoe8ejn4QJwcRR2Slw+hIIfBtSRfd9Tr
hQo8ZcepbcUH+Qy8jQ6ZyuyDk2T+d7ptt09fkiSvObTz/4bud3R3h531IXqo
TUjXQ1vJVA9p3VxRW4W8NnMhD9VpM9dmD9l3DuU9Y9t3/6r7rqHQtSE87wLb
6D2x9xcyeMpcH0JuhGcc+K73hIo6zK3Xq1pQN6ht6QZVNjyw4xLLAV0++r0k
Wb0mSe74Q/f/P39/sr/9zfp700NtArEti3Gvk/A1IvedRL77WfOevT0KHirz
7ruitnJl2yjYa0Pqoa077Bp7fyGDp2w7hTpFsjYNdQvch3Hoc34GVdbbv+MS
8NHss/m//xndPAj/8d32S8Hnf6KH2gRiWxbjrIf0GlGVtgp5bebqvBNvmDxU
1Ga7Sls5974hXLfDc5e2EXpoLOnnc05xXQnXl+oWXI9CW7pBl5kLOszPWGC+
u5/d/9nn9d5PD7UJ6XpomyzWbSLT7yOq2maubNvtcfBQ1TbbvjYK1kP/GHt/
IYMH7erxn2WyzNwn44Oe/x803/fxfN47Sbadvzr6diWTILbJdA+5bRX60XZ7
XD1k3/Wg14awbt33PNg2Cnj+Hz00pqxYsSJ1EctkWXdPh70Cn+337P96H0iS
Q49/Ivp2JZPIpIc2l+ltFWybubVl8hpR6B0Q4+KhOvew1mkrh3pS9dC2Hd4b
e38hgwfXXq655pq0jfWDDz4YKfK3q7xqj45Tdq/GzI5/Zr43SXbY/8nk33/2
aPTtSiZBbMtinHrIfa5ClTZzTb7/oe0eynvOtm0rZz1U9Fw5X1s5emjMgXtw
HWfJkiXpPTrnnHNOcvbZZ481s3ZMUjbYKZn4bEF3t982H3g6OeDYx5KLrngo
+jYlUxG/h9w2c2WeM+c+d1ufd1rUdpsemu4ht60cnoc+R+ghQsgIIl0Pzcli
ndtmjh7q3UNln7Ptvn9Vn+djPfS+2PsLIYQ0DWKbTPWQfb5P6B6ivOdu00Pl
PTRDutfdrIfc58rRQ4SQkUbyPWTvIVpHJtvM0UN+D4Xefxd6F/gMCd/Datts
470cc4QeIoSMIDLpoS3Efw+R717W0DvC896HNy4eKvNMn6r3sGLbzO2wW+z9
hRBSntt/tzL6PAwDiG1ZjAt5qMy9rEXP9qGHqnnI3jtED40xeAbcTTfdNBJg
WUZ5+dxlvOOelcnpN/xppJexKWS6h3zP3aaH6nko7z2sZZ6lQA+NOTjmR6WE
PDRKxfXQ8Vc+PtLL2BRSzkNFz1Qoei8rPVTeQ+6zFOihMWaUYhg9NBolgofs
MxXood485D7Tp8hDeg8rtgne2/4moYfGjlGKYfTQaJQ+euhNWaxTD9lnKhR5
yD7bhx5q3kO4v5geGlNGKYbRQ6NRBuAh37N96KH+eUjvYS3rofeX2aZ4X41y
+eWXN/oeb7xPfM8990z/NzG+5cuXJ8cdd1yUGH/mmWemzw9tepmaJBTD8Hwf
vG8B7+nOK3gvnvs+VrwzD7/FOOw78PAZ7xPHuxzc8WJfwm/wfKG6paqHyi5j
m0oVD5VZPjxTEMO42xDvwEV3991U2LbYftiO9p2I2LY6PQzTS+mTh94v5T2k
97LSQ816yPes7VoeQpzoDJccdthh6XtlFixYkCxbtqynfQT7+rHHHpt+RqyG
N5qK2fAk5jdGjMc6uuSSS3papu22266v/vLFsN133z19/yne/411lxfH8I5v
O8ydd96Zfj/55JPT96hK9j5W9MdnvCdcx6vvtps3b146TbwvD93rnt9X8VCV
ZWxTKeuhMsuHYbDudb3DLyhwCb7jP/rru3BD21bfD2+37d13393IMjaFlPeQ
fbYPPdQfD4WecVrJQ1tttdW07vARvNQZR5ofafwH6K7DnXLKKRPdkS/AQfod
OQN+i9iL/9jvMS3023XXXSfyLkzryCOPTLvPmjUrue2229LuJ5544sS4cGwV
ecidF3QLTdPXHeAz0HUC32AYLAO6a76oy4R51HkH8JSdT7u+8Hvtdt1116Xd
dB1jepgndMM4dDj1eV0P4TwY49GCuAJ8ReMOYpXGudmzZ6fjQGwCODfWPAix
SwtiHn6n71vVot/rvEu8rIeqLGPbShkPlV0+5C92vLp9cEzq9tTzBx0v0CKZ
31auXDllHuAt7K9NLOMAPGSfdUoPxfEQnm9RKx/SOjmA7vABYqTGRjgFw+Bc
XrI4qs5BXRnqq/AZ44MD8FsMi1gtmcswTs0j0B/j1Gkh19DuiOsYXmMzxq/j
CHkoNC9503S767zCeZiuHad+xn+7TPAExqXLrfPmW1+6DjTfhDd1fjBNuC07
xiaGxzqoUk/qxjDU01hfLF261Ps+Vd0PUOAejVvIj+AXyby4aNGiifFiOC3o
rr/DcFrHg+GkZn5S1kNll7GNpYyHqiwfhtUcxjoG5wPIeyTLi2zBvodcCtiC
cwucm9jt2esy9tFD9lmn9NCQeUhjKmKggtiJeIn4a4dDnMX5P/rBB/CFPV9H
LNNcAP3s+G+//fb0v9ZJadzTuKuxGb+Fk/AZeRGOEc1J8JuQh3zzotNwp1nU
XceB6dpxwhmaD0nmIUwXPtFlxboJrS/1n3oFjkEuiN/rMmp3gN9XvVbni2Hq
DhRcN3DjDQp8g2FR4BPNX8S4B7kQvuO/1t1gWIwPnzEOFJw/47v+l5pxrIqH
yixjG0tZD5VdPjhKPYRjRwu2GTyEbaT1clownOblyIW0IOfFdNEd421iGemh
nstIekhzBre7jZd6To99FbERMdLnIQX1SkUesjHbTgu/hYfgJcnqpTTPqOIh
6xd3mnnd7brA+Ow4sfyuhzCv6hj9fWh9ucuKz5jv008/PeWCCy6YmBZ+p/V4
mpPW8RDih81bcI5rYxoK4hqmg3NuvU6AWKWusefVGJf6Cv2R82Ea6KYe0uli
XtRd/ayXK7OMbS1lPFR2+Wx7Al3vbncUya7lwTl2u2Cba3sFm7+ivs91V91l
pId6LmPnIc1vNG4jfmqMRVzV6xjobnMKdMd5vvWQ/tfrNjj/12swdlrqIR03
umk9W169XGheQtP0dXfXhU4L40RuJp56OZ1Xuy5D60uXVa9/4bfqa+Se+hl5
l64P+9s6HtJ6Mm1DoMug8QwxCvEI8Qcg5khWd4MYhXoZrRPSaz0YXq9Z2LwJ
v1V3wZ0o+H3dGFbWQ3nL2PZSxkNltqGud22fqPXIOrxeO7LbEC7T+j1sRx0v
vGe3rd0Hel1GeqjnMrIe8rVT0LhscwHJ6ljs+T1iqXbX3EG9odfyJYvJ2l3R
eGynpbmU5ig6PY3vOE583iyaF3eavu56PcaOEz7VYbR+zb0+ZD2kvw+tL+2u
PtO2EuDcc89Nh7HtHtTndT2EAr/o+Ox1BXx32/eiIK/RGIT/2oYOoG5Hi+ZO
7ngRG+26rdt2rUp7udAytr2UbS9XZhtquzhF69LUK4rW18FFyLN847X7L4ax
9XW9LCM91HMZJg9tKRXuH+oVPe+vMvyg5yU0zTLz0s/5DY1f23hUHVcoTms7
qLoFv/dd4wmNF8P2Mj2UqvcP9bqMMUqV+4fKLJ+2afQVzZvcgnH6zhWaWp99
9tCWQg+12UNvlgF5iLSHUboXn89TGI3SRw+9Wegheoi0jlGKYfTQaBR6iB6K
HRfJYBmlGEYPjUahh+ih2HGRDJZRimH0UHvKmbdMpUqhh+ih2HGRDBYc85ZL
L710qHDnf9SWL28Z7ftYR3UZm0LoIXqIENIXbv/dyujzMAwIPUQPEUJIRIQe
oocIISQiQg/RQ4QQEhGhh+ghQgiJiNBD9BAhhERE6CF6iLQWtJG96aabRoJ+
tPclo4HQQ/QQaS1tvAeybqGHSAihh+gh0lroITIOCD1ED5HWQg+RcUDooZH0
EN4Lh/djAfv+u9joO7N7HQ/eO4f3bGM5Yy9TP6GHyDgg9NDIeQjvFJXsHab6
TlPE7Vj7GOZDp3/BBRdMvO+0x/02fd9plff1AcyHvtt1GMjz0MMPP5w8+eST
AzRJb4UeIiGEHhopDy1btiyN0bbbddddl3ZDzL7zzjsn3l2NfEJzJcRnyd4b
jPdYo9txxx038f5rvEsUw+Mz3m194oknTgyP8aM73sWt48Y7xDEtO9wpp5yS
ghwNw2Pc7jR1Ovr+7j333HOaa9DfTtuOB+8/1uEwLe1+5plnTllGjLdoHoDv
HeuDxOehRx99NDn//PPT5YOLhqXQQySE0EMj5SHkG8iBPNs5dQ7iKvIBxHbE
egyLuIv++C2GwWfkLOinuQu6z5o1K/2McSCO43dwimTeg3MQG/EZPoDH9DM8
gGki1gOdJsav00R9nXbH8NpdXahgGMwLnIvvmBc4BuOXzE3qnOXLl6d1d7r8
GC/mR9/TnTcPWDa4NObx6fMQ1gdchHW9evXqCEapV+ghEkLooZHyEOqqQh76
5S9/OZEXaXfEXM0JbDcME/KQmBxIv2teBZfBR3CD1n/BO+oS9ZA7TfWnOkC7
Y1hfPR7mBcPq/MIvmC66Y9z4na1/0/nTfvrZNw/qpNjHJgjVyz300EOph4ap
0EMkhNBDI+UhzQNsN9SXodvtt98+zUMA8VgdY7Ee0hwk22e8HoJ7kCshp8Bv
1QP47POQnabmX9Z37jxYMAyG1RxIcy5M3+chOx3roTLzEJOQh1asWJEsXbp0
wCbprdBDJITQQyPlIY3LyA30O2Iz6uCy7T3RXg31Zoi7qHtCd217hms7iMmI
4/o71FHZejnNuTCcZN4TU4dm8yEMizwNn9VDOk2tW8M0Mc9VPaS5i+ZwOg86
X+iuw+A/uusylZ2HmIQ8hOW4//77B2yS3go9REIIPTRSHgJ6PUTB9XbNgdx+
uH6C7sgl3OHRT7shRgMMi//ajkCy60rorteKdBzqIXgP3eA94HbX4dEN3rBt
A0L1chhG69qQC+l4NB9Cd20rKFnbQbv8uixl5iEmIQ+hTu7xxx8fsEl6K/QQ
CSH00Mh5SMH5fug6u15bsei1+6JhkStgWKWX/S80zabQPCnmPPSCz0Noqz1s
14ZQ6CESQuihkfVQv9D2BLHnYxzgfaxkHBB6iB4irYUeIuOA0EP0EGkt9BAZ
B4QeoodIa6GHyDgg9BA9RFoLPUTGAaGH6CHSWhC7LZdeeulQ4c5/7PVJ2onQ
Q/QQIYREROgheogQQiIi9BA9RAghERF6iB4ihJCICD1EDxFCSESEHqKHCCEk
IkIP0UOEEBIRoYfoIUIIiYjQQ/QQGUouvP7R5Mjvrkp2/eJTyes/tSYFn9EN
/WLPXyzw3izcM4t3ap166qkp+Ixu+r4t0i6EHhpJD+GdOvbd3Xp84r3hivsb
7Y73yOFd4rH3TeLnljtWdlzzePL6f1mTvO5fkuT1RyTJFhn4nHbr9MMwGDb2
/A6Ku+++O913f/jDHyZXX311cvvtt0+8Iwuf0Q39MAyGjT2/ZBKhh0bSQ/qe
UesTvNsU7yHF+4Pw7lH0V1fpu7PRT99vqu8Pt+D3vb77jtQHXjnglCeSTRd2
vfOGo/ygH4bBsCEXuecpgwb7Ed4f38T+BK9cfPHFqWP+8Ic/JE899VSyZs2a
iWfb4TO6oR+GwbB5LvKdx4XAMaPvlo9FG+ahF4QeGkkPqW/0fdi6r9o8CMdZ
Z5zpMQcP4T2rbj87TnUX+MlPfjLl3dl4Jzje+Y3xW8/BfToM3iGqv9d3d5Nq
IMcpcpDrIvzGHY+ed1SdPvYVfad6r2Bc2Gea8NCVV16Z5jurVq0qfN4qhsGw
+E1ofL7zuBDYr+vU9zV5Tld3HtqC0EMj5yHsj3AE9nExsQZ+uOSSS9ztn747
3PXQueeeO+U7wDtY0U3Pu/DbG2+8Mf2M7lqnh+6YDsaLzxgXhsNnTMfnOFIM
rvmgvs110OuPWJNsfvjTKfjsugi/ca8X2e2NbSXZ+YE9b9G8WLcztr9+B7/+
9a/T8w2g5yS6/cWcg4TOTTA+xGL8x76CcaA/hsP8lV0vK1asSC666KLkkUce
Kf3sbwyL3+C3vnH6zuMWLFiQzjvmEetOHYXuWD843vBZ++tx4lsn9pwOx8OJ
J544sb4xvLs+9P3HGD+Gtb+184DP9nwP18Vi77dlEHpo5DyEYwfHkJ7z6r7q
8xCOF3hLYwyOP93/4Q933BhejwkcD5iW9R2OIesv5EmYrh47OEb0ONHjhpQD
7Q9w7cd6Bu7Z91urkp8ufzK5cNmTyX6nrUq72WHwG/zWjst6SPcRbFdse/zH
dlVHIJbp9kVsxe/we91nsI0RN/U79jHd95BXhM5NdHidru5LiKnYZ8qul2uu
uSb1SdWC3+C37vhC53FYbswXusMZ6hTJ3IHlUx9juZHrhdaJe06HZdfvGD8+
a66IaaH+EsNh/PiM32O96/zpPMD5+IxlsOd+sffdIoQeGjkPSXY+BvAZ+zG6
ux7S4wL7tHVWXjsF6yEMg++IUxo3XA/hmEM/vTaFYdENcQgxKfb+P0yk7eKO
mJoH7fONVYm5DJJ+RjebF+E3+K0dl/UQYhvAttFti33B1uFKFs80ftr9R4dR
3+j3Cy64IN32oXMTjdFoQyBZ/bAOo/NRBt2nqxb7W0voPA6fbY6j+7xkDtA8
H7/X34TWiXss4fjQ67E6XV0fdj3b+bHbRecB47E53DA4KFsOemiEPKTnQ3Y/
lGyfxj6K+I/POF/CcYBzTzcu5WHrIwDcIia30enr8Yr4huMLx5+OH9PXOBR7
/x8m0C7b1skh7/nx0unXQy6++YkpOVFaN9f5rR2Xu73hIK0r0pzFekhzIPs7
dxyubxDjfR7Sc5M8D1Xh/PPPT5588snKHsJv8Ft3fBI4j7Pe0GXT4fV6J44r
eECyOrjQOnHHp+tJ16tdH9b9UtFDw4LQQyPlIRwzqPey3eAK7P/I88XU79s2
BNiXbbuDvPGLiVG2zkZjEaanxzBimx5P9nqDnTYph89DP7z+sWnx9fylf6rk
IdTz6HmzZPFM203qNhXTnkW3t+sh9Zeeg2A/QH1s6NzE1suJaZ+J/bRKvdyF
F15Y20P4rR1X3nmcuhjdfR7CsaDHHs67xDjdXSf4bM/p3LoKMdd2sD702MR/
na5e17PzoN1sHccw5ERCD42UhwaJ1l3jONFuOA7sdWj3N+jGdt/18NXLvWvR
vdPq5XZedE+pejmNbXrtHWh+rNdstLvGSI3HkrVTcM9dtJ2ZZOcg6BY6N7Ee
0msZSpW2X1dccUX6v2qxv1XyzuOwrNZDup+jO/yFebbLoOdqvnWi09LhkMNY
D7nrQ32FedG2EAC+s/OAz/CU9h+W3EjoIXqoJjiPtvkOQJ2BexyTZvC1U5h9
0GPJ9sfcmZy75OHkB9esTHb87K/TbkXtFFzUC273OnWn7riKzk16nd5NN92U
1u1VLfgNftv0dvItQ2j9Vh0XXK735uadzw3b+Z7QQ/QQGQpC7bZnH/ynZO29
7k7W2fu36ecy7bYHSb/PTVD3hXZvjz02vY4yVDAsfjNsbWVG9bqq0EP0EBka
mrqPddRAXvOLX/wifWZCUcEwGLYfuRCph9BD9BAZGpp8rs8ogRwBeRf8kpcX
oR+G0fulYs836SL0ED1Ehgo+59QPvIIcB/VtuPaDbmgTB/AZ3dAPw9BB7ULo
IXqIDCV874MfXPOBa9AWDs9BBPiMbsN2PWhcEHqIHiKEkIgIPUQPEUJIRIQe
oocIISQiQg/RQ4QQEhGhh+ghQgiJiNBD9BAhhERE6CF6iBBCIiL0ED1EWstl
l12W3vcyCmBZYq9P0k6EHqKHSGtB7B6VQg+REEIP0UOktdBDZBwQeogeIq2F
HiLjgNBD9BBpLfQQGQeEHqKHSGvxeQjPj3744YendPvzn/+c0uZCD5EQQg/R
Q6S1+Dx07733Jueff/6Ubpdffnly1113DUoptQo9REIIPUQPkdbi89DSpUuT
O+64Y0o3vHeb+RAZVoQeoodIa/F5CM6x9XJPPPFE2m316tWD1ErlQg+REEIP
0UOktbgeevrpp1Pn4L+WBx98cKKebtmyZclvfvObgfqlbKGHSAihh+gh0lpc
D6Hu7ayzzprSDfV0K1asSD8//vjjaTuGNhZ6iIQQeogeIq3F9RAcY+vl8B/f
//SnP6XfL7nkkjRXgpfgK/R79NFH037XXntt2g3AV4Mu9BAJIfQQPURai+/6
EBwDvyhaDwdHwTFad4frRcif7r///jRnuuWWW9LhMDy+D7rQQySE0EP0EGkt
oftY4Rq0T7BtE/7whz8kS5YsST+rq9Q39prSQw89RA+RViH0ED1EWkuV5ymg
jQLuLYKPtN4N/oF3bN3dVVddFaUtAz1EQgg9RA+R1lLFQ7g2BP+g/Ry8gzZ0
uL8VORPq5rQeT3OmQRd6iIQQeogeIq2ll+fL2bbdKPCR222QhR4iIYQeoodI
a+FzTsk4IPQQPURaCz1ExgGhh+gh0loQuy2XXnrpUOHOf+z1SdqJ0EP0ECGE
REToIXqIEEIiIvQQPUQIIREReogeIoSQiAg9RA8RQkhEhB6ihwghJCJCD9FD
hBASEaGH6CFCCImI0EP0ECGEREToIXqIEEIiIvQQPUQIIREReogeIoSQiAg9
RA8RQkhEhB6ihwghJCJCD9FDhBASEaGH6CFCCImI0EP0ECGEREToIXqIEEIi
IvQQPUQIIREReogeIoSQiAg9RA8RQkhEhB6ihwghJCJCD9FDhBASEaGH6CFC
CImI0EP0ECGEREToIXqIEEIiIvQQPUQIIREReogeIoSQiAg9RA8RQkhEhB6i
hwghJCJCD9FDhBASEaGH6CFCCImI0EP0ECGEREToIXqIEEIiIvQQPUQIIRER
eogeIoSQiAg9RA8RQkhEhB6ihwghJCJCD9FDhBASEaGH6CFCCImI0EP0ECGE
REToIXqIEEIiIvQQPUQIIREReogeIoSQiAg9RA8RQkhEhB6ihwghJCJCD9FD
hBASEaGH6CFCCImI0EP0ECGEREToIXqIEEIiIvQQPUQIIREReogeIoSQiAg9
RA8RQkhEhB6ihwghJCJCD9FDhBASEaGH6CFCCImI0EP0ECGEREToIXqIEEIi
IvQQPUQIIREReogeIoSQiAg9RA8RQkhEhB6ihwghJCJCD9FDhBASEaGH6CFC
CImI0EP0ECGEREToIXqIEEIiIvQQPUQIIREReogeIoSQiAg9RA8RQkhEhB6i
hwghJCJCD9FDhBASEaGH6CFCCImI0EP0ECGEREToIXqIEEIiIvQQPUQIIRER
eogeIoSQiAg9RA8RQkhEhB6ihwghJCJCD9FDhBASEaGH6CFCCImI0EP0ECGE
REToIXqIEEIiIvQQPUQIIREReogeIoSQiAg9RA8RQkhEhB6ihwghJCJCD9FD
hBASEaGH6CFCCImI0EP0ECGEREToIXqIEEIiIvQQPUQIIREReogeIoSQiAg9
RA8RQkhEhB6ihwghJCJCD9FDhBASEaGH6CFCCImI0EP0ECGEREToIXqIEEIi
IvQQPUQIIREReogeIoSQiAg9RA8RQkhEhB6ihwghJCJCD9FDhBASEaGH6CFC
CImI0EP0ECGEREToIXqIEEIiIvQQPUQIIREReogeIoSQiAg9RA8RQkhEhB6i
hwghJCJCD9FDhBASEaGH6CFCCImI0EP0ECGEREToIXqIEEIiIvQQPUQIIRER
eogeIoSQiAg9RA8RQkhEhB6ihwghJCJCD9FDhBASEaGH6CFCCImI0EP0ECGE
REToIXqIEEIiIvQQPUQIIREReogeIoSQiAg9RA8RQkhEhB6ihwghJCJCD9FD
hBASEaGH6CFCCImI0EP0ECGEREToIXqIEEIiIvQQPUQIIREReogeIoSQiAg9
RA8RQkhEhB6ihwghJCJCD9FDhBASEaGH6CFCCImI0EP0ECGEREToIXqIEEIi
IvQQPUQIIREReogeIoSQiAg9RA8RQkhEhB6ihwghJCJCD9FDhBASEaGH6CFC
CImI0EP0ECGEREToIXqIEEIiIvQQPUQIIREReogeIoSQiAg9RA8RQkhEhB6i
hwghJCJCD9FDhBASEaGHhsVDbxJ6iBAygkjXQ28SeqjNHnqD0ENjzYMPPpjc
d999ya9+9atk2bJlyQ033JAsWbIk5frrrx8pdLmwjFhWLDOWHevAt26uXv5o
8vkf/Tl5/9eeSt62aPVYgGXFMmPZY++bTSCTHnqD0EP0EGkliMM333xzsnz5
8uSRRx5JxqVgWbHMWHasA3e9XHXLI8m+p/5P8t6vPp3s9c3VyYdOG332/fbq
ZO9vreks8+pkv1OfTNdB7P2zV4QeoodI60FOcMstt8TWQrSCZcc6cNfL5855
PHnPSWuSvb/Zjc0p+Dyq6DJmy4ll/9w5f46+f/aK0EP0EGk9P//5z5OVK1fG
1kG0gmXHOnDXy64nPJ3sdsrqZI9vWNYku3/d7TYKdJdrctnWJLudvKazDp6K
vn/2itBD9BBpPddee21sFUQvWAfuetn66DXJ+75mWZ3+R3weNXTZFO2GdRB7
/+wVoYfa7KFNhR4iHa6++upasfuxxx5LFi9enMyfPz858MADk4suuqhhO1Qv
uNbT2ZeTVatWVfod1oG7Xt54xJpkl5OS5D2Wr2S43Wuw/bH3Jq/b47TkXSes
Khx2410Xp9TtX8QuX1kzuXzmP9ZB7P2zV2S6hzYVeii2h2YLPUQMV111VeV4
f++996bxHsBBc+fOTT/jf8yiHoIjqxSsA3e9bHH4mmTnxUky74Qk2WnxJDsv
nvq9LmvPOTCd1y0WXFQ47KydFqXU7V8EltFdTrDF4Un0/bNXJOyh2UIPDdpD
Gwg9RDzU8RByoM4+k8Z9LWeccUbaDe2jY5W6+ZDPQ5stTJJ3Hp9xnPms33vg
Hf+6asLjL3r1vOBw233xqfT/rI781t9hUeX+pXGXLfu82WEjnQ+phzYQeqhf
HprRYe0OrxJ6iORQ1UOI8Z39JTn55JOn9UM+pN0xXsliLTjvvPMmhoPHFi5c
mMybN2+i/6233jrR/4EHHpjSD/V/tixatGiiH8al3mnSQ5scmiRvWdTlrQ2z
6b6XpfO58Z7npf+3/fQDU/prd/DKuQtT1uskKGX718VdXqyD2Ptnr0h5D70q
i5kzhB6K5aHdYu8vJA5VPaSxHq4IFdSLSeaPu+66K3UTvmu7PHXMWWedlfpH
v6M89dRT6efZs2en08J1J3yHe1COOeaY9DvmW+cFv2/aQ689OEm2/Vx/eMEG
85IXbbx7+hnzu94up0302/QjS9Nua79jUbLZgbcm/7DtwvT7zHknl+pfhznH
+j9jHcTeP3sFsU3ooUF56MVS3kMbS3dbbCbdbTNX6KGxpaqHli5dWirWwycA
w+n1JPwWBXkTfKLFXtfR8dtrPOiP+j7NxVAHqNNQT2H4Jj00+4Ak2fKoDkc7
/3tks0MfSOfxNfstTb+/crvF6Xft/7KtFybPfuXcKb9BfwxXpn8tAsuGdRB7
/+wV6XpobhbrNsti38ZS3kMvFnqojIdeKOU8tKFM99AWQg+NNXXzIbglVOAB
vYZk0etJyHVsvZ71R55L1EM+in6bV3weevVHOs74dJJsbnC/12Gdd3Wvoz1r
xtzk+RvtPjH/G3341rQ/Ps9458lTfvPSbY9JXvH2xaX61wHLtdmnpnfHOoi9
f/aKTHpoC5nuoQ2lnIdeKPRQrx6aKfQQCVDVQ1pvpvVktuy+++5proJrQRgG
dXIoWk9nPWSv+Vh/+PIhOO/OO++c8JDbRlyHbdJDGy5Ikk0Om8prF07vVhXM
3ws2np+su9tlyTq7nJf+R7eXbH1M2v+Fmx2YPGfdeVN+s9YLZycve8viUv17
xS7jrAVj46GZQg/V8dBzpTcPbSL0EPljvfZyp5122sT1H1zzgW/Q7kCy9gZa
VwYvwCFu+7o8D6lr4DT8Vvth/Cg6LkwH16h0uvCjz2F1PbTBh5Jko0OmM/tg
f/cyzNzn1u61nM5/2/1l7+iuz1cf9FSy9vu67Ttevv0ZyayPrkxe+tbutTX8
x7BF/XsBy6bg+6wPjaSHNpHePPRcoYfKeOjlEvbQRuL30Pti7y8kDnU8hKLt
tC06LrgEHtHurofQriBUL4cCr9nx2jZx8I1b56dt7fDfjqcXD62/dycOH9jh
gMn/Gx5outXgJW/qOsPtPnN+95rROh+4ecpw4G/XmZc8d6P5yYu3XTxtPKH+
ddnQWTasg9j7Z68gtonfQxtJ2EMvF3rI56FnZsub5yG063ip+D20vkz3EJ5v
8foOc4QeGlvqekh9g5wk1HZO85u6BXlN6PfoXjXvCRWvh/boxOGPJsl6+3f/
r+/+7zPrLViVUrd/pWm5y6Tf9xgZD83JYt3rZLqH1he/h16axdQ8D/1tFpvp
obCH9F5W10N4ngU9RFLqPtdnlIrvuT7rfwB5SocFGfPN/1ElW9b19ut+xzqI
vX/2ivg99BqZ7iG9h3WG0ENVPfQC8XvoFTLdQ3h+hXpIn3WqHnpv7P2FxOHG
G29M/49rsevAss2HVycz9+nE4w8mU//r51HCXU6wd5Jsu9/q6PtnryC2yVQP
6bPlNspiouuhV4jfQy8QesjnoedJOQ/heRXqIfeZ29g22wo9NLasWLEijcPj
WrDsWAfuejn0y08kM3dLknX3HCP2yuh8ntnJhQ49/ono+2evSNdD28p0D+mz
5daXqc/0yfPQ84QeUg89W6Z7SJ+pEPJQ3rNO6aExBm3SrrnmmvQ+Ubwfe1wK
lhXLjGXHOnDXy7//7NFk+4/8T7LeP3Zj8rq7jwdY1pnvTdJlxzqIvX/2ikx6
qOwzTl0PvUime0jj8Ch7SF3k85C2mbMess/2wbpDOw/1EK67+Z51qvcQqYf+
Mfb+QuKAeIz2aUuWLEnbW59zzjnJ2WefPdJgGbGsWGYsO9aBb91cdOVDyQHH
PpZsvcfqZNaOScoGOyUTn0cJXS4sK5YZyx5732wCxDaZ6iHfsxTWzWKleuhl
MtVDfyfTPaRt5Xwe0jg+rB6yOVEdD2nbbazLGTLdQ757iLYRemjsQSy+//77
k/vuuy/ND8A999wzUuhyYRmxrCH/cL0Ur5dhQboe2kbC9w5ZD82QSQ+5z5ar
6iGN5+PmobLP9nHvIcI22jX2/kIIIU2D2CbTPWTvHSr7bLlx99AzZLqH9Nk+
ZT2U13Z76w67xN5fCCGkaRDbshiX12a7iofce1ifaeL0MHtIXeTzkLoo5CHf
MxVQr4l1qdeIrId8bbff2GH72PsLIYQ0DWJbFuPy2my/SiavDf1DFkPLPltO
PaTx2uchG+uHzUM2J3pmhu/ZPnXabts2c3jexZwOO0q3LvUDHfbosGeHvTt8
qMP8Dgs67N/hnzt8rMOBHQ7qcEiHT3T4ZIeFHf6lw+EdPt3hyA5HdTi6wzEd
PtPhsx0+1+HYjM93+NcOizK+YPii4UuG4wo4nhBSm6Ljyx6L9hi1x64ezzi2
cYzr8Y5jHzEAsQAxAbHhKOnGCsQMxA7EEMQSxBTEFsQYxBrEnI9JNwYhFiEm
ITYhRiFWIWYhdiGGIZYhps2RbozztZWr0mbb90wfjcuhtnLD7qHQNaJnSdhD
Zdpuu23m9BoR3s2BOtS5Hd7S4e0dtpPuuQS25c4d3t3hPdLdvrhHGe853L3D
P8mks/aRSW/tJ9395MPS3Wc+It39Rz12gHT3q49nHJRxcMYhGYd6+EQBnySE
1Kbo+PIdk3q86vGrx7Me3zjWccyrRwBiAmIDYgRiBWKGegWxRN2CGINYg5iD
2IMYhFiEmITYhBiFWIWYhdiFGIZYhpim7x2ybRRC7wPPa7Md8lBeW7lh8JB7
jaiMh7RuroyH7DUit82c7/k+2F7IX7Ht5kj3HYY+J83r8C7p1rviGuB7ZaqX
NJfaSybd9EGZ9JPrKOsp8FHDP8tUdykHEEKiYY9Fe4zaY1ePZ/WM6xr1DWKD
OmcvmcxprHcQYxBrEHMQe+aJ3z2IWXOkG8MQyxDTENt814Z8beUQM8t4CDG4
TJtt10M29o+Ch54t1dvMha4R6X1EyF237LCVdNvb43zizR3eKlNdtJPku0jr
9TRP2kum5kpgX5n0kc9Jykek2E+EkMHi8406R3Hdo/7Bsa9xwPUPYobWq+U5
CDHIOggxCrEKMQuxCzEMsQwxzd6/qh5yrw013VZumD1U9V7WMu/DC7VV8L0j
XHMibEM3J3pbh3d0eKd0z0OwH9i6uiou0txoX5n0kc2RlCIv5fFRQkhtyh5n
Ie8oNvfR4z2UA+U5yNbBIfYgBiEWISYhNrm5EGKY5kK+d4HntVGo8v67Z0q9
e1jb4KGmnqkQ8lCZa0S+ujnNiZDPop1jXk6E/UBzojwX2Xo6vYbk+sjmR9ZJ
IS+57E8I6Tuh48/1jnWPm/9Y/+i1H1sPl+egUH2cmwshdiGGaS5UVCdX1Eah
Hx5yfTAMHlorW9a894OXuUbku5/V1s1pTqR1c3k50Q4y/VqRtmEIuciXG6mP
XCe5XrJucv1ECBks9lh0j1Ob96h71D+hHMjnIG2L4F4TQuxBDHqHhHMhxDCb
C9k6ubz7V/OuDYXeBw7cNtvD6qEybbeL2ir4njOXd40I+altN6c5kbZXyMuJ
1EVaP2ddZPMivJM3z0fAzZFCXrK4+36eswgh1Sg6vnzHpOsdN/fZS/L9g1jh
5kHqIK2PUwcV5UKIYTYXyquTc68N+Z4rV7aNgnqoSlu5YfdQmbYKZevmbE5k
2yuEciJbP1fHReqjPCe5+ZJ1UxG+44QQUo6yx5nrHJvz+Nyj/qnjIFsfV5QL
6TvA83KhdWV6nVyvbRSG1UNNPXc79FwF66FQToRt5L4rXHOiKi7yXS+y9XTW
Rz4n7WnYS6Z6yeenPD5ICKlN2ePMPT73kknvKD73+PyDWOG7HlTFQb622oht
iHGhXMi9NhRqo9DUc7bBsHio7PNOi+4jCtXN2ZwI+arbhtu6yFc/Z68VuS7S
dnQ2N/L5KOQkN1fy+akI9/gghJRnr5K4x6eb8/jck+cfxAxtF+c6yF4TQgxC
LJor0+vjELvcttqIcTYXKlMnl3f/ap6Hip4rF9NDfyG9e+gZMvkciTLXiHw5
0ToyWTenORHyVd91Il/9HLZ7yEV6vUhdpLlRyEfqJDdPUi8pPj8V4R4fhJDy
lD3OXN8o9lhW76h78vyj9XDqIMSUPAfNken1cb7rQvaeoVCdnOZCZa8NAY3L
vXgo5IteS9MeKtNWoaj9dqi9gj7nJ9R2DucXvmtFrots2wW3ni7kI3WSzZOs
l9ycKeQpH3sQQmpTdHz5jkl7zNpjWb2j7gn5x62Hs20SXAf5rgm59wvZ60KI
cYh1ofYJL5f89tp12yi03UNFbbfr3kfk1s25z1YI5US+tnPWRVo/l5cXqYvc
3CiUH6mTfF6yOZObO7meIoQMFtczFnsMW++oe0L5jy8H8jnI5kGISbY+DjEr
r42cmwvNkKn3rpZtr110bajXNtsxPOS6qMhD1kX2GlGo3Zytm5sh4etENidy
6+fyXKRtF9CO0pcbudeObI6kXrK5kusmn6PyfEUIaZ7Q8ecep/YYVueod2zu
414D8uVAiCnaJiHPQVvI1Pq4UBs5Nxdy6+ReLP52cuoh66AmnufTZg+FrhGV
bTdX1F7B5kRu2zm3fi7PRdtKd7/QdnSaG7k+0vzI+kidlOclmze5+VMR7rFB
CClP2ePMPT7tsevzjpv7qHvc/Ef9g5ii7eK0TUKeg3z1cbaNXCgXyrt3taid
XD/aKLTRQ720m4Pf83IirZ/D+YJbP5fnIr1eZF2kuVGRj6yTfF6ybrJ+CrEL
IaTvFB2H9pi1x7L1jnVPGf/otSDrINs+2+cgtz7O3i9UJheyHqrSTm4UPBRy
kc9D1kWuh9z2Cr6cCOsf5wO+NgtaP+e6CPWuPhfhvAT7xxwp9pHrJNdLtg7P
dZTPVXm8ixBSm7LHmXt82mPXHtPWO657ivwzRybbZvscZNsl2PZxWh8Xul8o
lAv52ieoh6yD6tw31EYPNV03F2rD7eZEefVzeS7SvMi2o3Pr6eZI2Ec+J6mX
rJusn1xH+VxFCBksvmPSHrP2WNbjW4931z1F/rH1cIg59h4hXx7kc5CvPi7v
ulDZXKjXOrkYHupn++1QewWbE2F922f9zJDp9XN6raiMi3y5kc9HrpNsnqS4
bnId5XNVHjsQQmpT9jhzj0/3+LXOUdQ7rntC/nFzoDIOctvH+erjfG3kQu0T
Qh7qR3vttnkoVDdXNycqqp8r4yLbptvW02lu5PMR8DlJsW6yeZPrqBDuvk8I
aZ6i49B1jc111DmKzz3A5x/NgWw9nG0XV9ZBofq4JnIht05u2Dzku4+oibq5
vPuJbP1cGRe9WqY++wfbP5QbbSmT9726TrJ5kvWSusn1k3WUz1WEkLi4x6d7
/OpxbY91Pf7nyGRcsO7R+1Ktf9wcyLbNRmxCjCrrIFsfl9dGrok6uTr3DcX2
UNV2c2Xva3WfsWDr59xrRa6LNpBJF2mb7lBu5HPSG2V6nmS95OZMPke5riqD
ezwQQspT5VjzHav2WJ4jU52j3nHzHjf3UfeEciDbNtteD7IO8l0TsvVxiIm2
Pk49lOegfreTa5OH/lrCdXNVrhMV1c/Za0WhvAjb195fpLmRPntBcyPrJOsj
myepk9RL1k2un6yjXOYSQqIxJ4B7/NpjW493Pf7VO+oe1z/qHpsDqX+0Hg4x
Sdtmh/KgGTL1mlBefVyd60KhdnKxPWRLaBq9tJvLe75CyEW2zUKRi2xeNFOm
3l9kcyPrI7e+zpcjhbxkcybL1h62IYS0Bt8x6h7H9hj3eSeU+9j6N59/tB4O
sUmfleDLg/IcVNROO+/5CW28dzVUevFQ1ZyoTJsF3/2tvjo6nEvYNt1ublTG
R9ZJrpd8bnId5XOVD3e/J4Q0T9Fx6B637nFtneN6x7qnin80B1IHIWbZPAgx
zTrIvV+1TNuEQeZC/SplPVSlvUKV60S++rmqLvLlRkU+sk5yveRzk/WT6ykf
7j5OCBkcecemexzbY9w6x/WOdU+Rf0I5UF0HlamPq3JdyHpokPcMhUpe/V+V
nMjnoTr1c2Vd5F4z8uVGofzIOsnmSdZLPje5jnLZvALusUAIKU+VYy10vLrH
tesc9Y7Ne6x7QvlPUQ5k28U14aCiXEg91MR1oX6Vuh6q0naubP1cnoteIv42
3TMknBsBn498TnK9ZHMmn6Osp3y4+zghZHDkHZvucWyPcXvsW+/43OPzj8ad
UA4Uaptdx0Fl7hcqui40Sh4q22bBVz9X10VFuZHrI1+O5HrJ5ybrJ5+nQs4i
hLSD0PHqHtf2mLfOcb0Tyn3K+sfmQFUdVFQfV+V+oWHxUFM5UZlrRb26KM9H
RU7yecm6yXWUz1V5uPs7IaR5yh6P7nHsHuc2BljvFLknzz+9OgiUdVC/cqE2
eaioDXfZ+rm6LgIvkfzcyPVRkZMU103WTz5Pubj7MyEkPnnHrHt822PfOkfJ
c4/rn7wcCGg8q+OgKvVxTTzTtN8e0tJkTpRXP1d0rSjPRaHcqEx+lOckZabk
+8myQQHu/k0IGRxFx6fvmPb5Rp2jhNxTJv8J5UBVHKQeeoZMdVCoPq7t14Xc
0kROVLZ+rk5eFMqN3Lo66yNfjgR8XrJucv3kOirkqyr4jgNCSDnqHneh49g9
3m0s0Pjg8w5wcx/rH18dnC8H6iUPAlXaadfJhQZVBlU/B3zXiqyLfG0XinKj
UH5U5CTwSpnuJusnn6fynEUIaR+h49c9zm0MsLFhhhS7J5T/FOVARW0SbB6k
HipyEBiW+jgtTXmoHy7Ky41C+ZEvR3KdZOvvivzk85QPd58mhMSj6Hj1HeMz
ZLpvbH1byD3u9R9f/pOXA/XLQaPkoV7r58q4yNbRherpqvjIdVKel4r85PNU
Hr79mxAyGGaUxHeM+3yT5x3XPVX8E6qH89XFFTmoH/VxyiBL0bwUeahfLgrl
Rnk+KuMk6yXrppCjfK4qg29fJ4Q0S9XjMnR8u3HAxggbO/Lck+efohyoXw5q
ey6kpYwX++UiX9uFvNwoz0d5TvJ5yXWT66c8V5UhtL8TQpqjzrEZOs7deGBj
heudkHvK+MeXA1Vtk9BPB7XVQ1Vd5LtWVOSiMrmR66MyTgp5ybrJ56iQq8oS
2tcJIc1R9/j0HetuPHDjheudIveE/FMmByrroFC7hF4cFMNDWprOierkRUW5
URkf+ZwU8lLITyFPhfDt04SQOJQ9bkPHvRsffN7xuaeqf3p1kBtvh7E+zi39
rJ8rclEvPirrJNdLPj+FPOUjtA8TQtpDmWPZFwN8scLGkjLu6cU/VfKgYa6P
c0s/6ufK5EV5uVGej8o6qchNeY4q8hUhZLgoOs59scHnnCruyfNPXg40yDyo
LR5CGYSL6uRGPh/5cqSQk8q4ycW3PxZRtI8TQvpHnWM2LwaEnJPnHl/uU9Y/
VXOgUXSQlpgu8uVGIR+FcqQ8L/ncFHKUj7x9lhDSbsoc46H44MYRn3dCuU/I
P1VyoHFyEEovHvK5KO+aURkfFeVHeXmSz0s+N5XxVBnK7OeEkP7Qy7GbFxPc
+BHyjuueKvlPnn+KrgWFHDTMHkLpt4vK5kYhH1Vxks9LIT9V8RUhZLgpOv5D
ccONL2Xck+efXnKgUXWQlkG7qK6PXCf5vORzU5Gj6niLENJeqhzroXjhiy1u
/HHjUx3/0EGTZRAu6sVHPif5vBRyU5Gj8qiyTxNC4lDn2M6LFb7Y4otBbpzq
xT/j7CCUssuT56K6uZHrozJOquKlso6qQp19nhDSDE0dx0Xxoox3itzj80+v
OVAVBw2Th1CqLFfV3Kiuj3xOCnkp5KYqnqpDU8cEISRMP47dongRijO+mOSL
XXX900QONIwO0tKUi6rU1fXqpDwvlfVTL/Tj+CCETKWfx3BR/AjFnbruGUQO
NKwO0tJvF1X1UchJeV4q66eq9PNYIIRUo+njuyiehOJQKG5V8Q8dNL006aI8
HzXppCp+GrS/CCGDo9fjv0yMaco9Rf4ZVwdpqbrs/fJRnpOquKlpVxFCho86
saIo/uTFrkH6Z9QcpKXOeujVR0VOKuOlJjxFCBkPqsaTovhUFN/64Z9RdZCW
frmoKSf14if6jJDhpd/He5XY06t76KDiUnfdNOmjOl4atKcIIcNDL7GkbLzq
t3/GxUG2DMJHVZzUlJ8IIcRHnVhUJdbRP/VKL+utqo968RI9RQgpoonYUiem
9RpHWbql1/VY10lNuokQQqrQS8xqImayTC9NrNcmnEQ/EUKapKl41GSMZMkv
Ta7rJp1EdxFCBh1Pmo6HLNVK0+s/ppsIIaSIfsY8lt5KP7cN3UQIicGg4hpL
82VQ246uIoTUJXacYhlMib2dCSGkbbDEK7G3PSGExIKlnSX2fkEIIf2CZXhL
7H2HEEKqwjIeJfZ+RgghLCxlS+x9lRAyPLCwsLCwsLCwsLCwsLCwsLCwsLCw
sLCwsLCwsLCwsLCwsLCwsLCwsLBMlP8PD/VbEg==
    "], {{0, 440}, {418, 0}}, {0, 
    255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> ColorProfileData[CompressedData["
1:eJyVeQVUVF8X77mTzDAM3d0l3SAxdHeDwABD59BgUCKhIggopYIKgggWIWIh
iCgiqICBSBiUCioogvIuod//+39rvbfeWeue+c0+++w8cfeMoG+kfQACABBD
A3f25AQSlUpOcmCAvzhFxAQHRlD8zSJiKYEUqrovBBNTueEOcKeSo6LCEDBX
eEQs1d5EX8DVzV0AOwkwgBXQAxagTPaLiSLZ2lpucP/5/O+2PAw2BIKnMhuy
/nf8/9oY/SkxfgBAtjD29Y/xC4fxVQBQmX5R1FgAMOowXTghNmoDe8KYhQob
COOoDRy4hTM3sO8WPr7J42hvAOMGAGgIZDI1EABiG0wXiPcLhOUQn8NjTBH+
wREw6zyMdfyCyP5wLHbAPDvCwyM3sCuMJXz/ISfwv2T6/pVJJgf+xVu+bDYa
w+CYqDBy0v9nOP7fLTws7o8OMfghBFFN7Td8huP2PDTSYgMTYDwf4WttA2Mm
GP8I9t/khzECHxRn6rTFj+DxizGAYwbYYCzvTza0gDEPjI0jwqwtt+m+AcHG
ZjCGVwgiMTjWzHF7bjYlxshhW2YFNdLe5g8OoBqQtuc2kqmbejf4u+JCnUjb
8p8HUcz+yP+WHOTosmUzEh8f7GwNYyKM2WJCHSy2eJAiyUEG1n94qHH2G/aL
wFiTEmGivyUf6RVANbbf5qeGx/zxF5kdFGxmvY3LYoMcTbflNPiRN+3ngHEb
JYLk9EcOJcbV8o8v/hRDoy3fkQOUCKdtf5HjUbH69ttzv0SF2W7zo/CUMJMN
uhCMeWLiHbbnonRi4QW5JR9lHRVr67hlJ8o3hGxuu2UPKhFYAgNgCARAHPz4
gkgQAoL751vn4W9bI8aADKggEFCAzDblzwyXzZEIuHcAyeAjjCgg5u88/c1R
CoiH6b/+Urd6GRCwORq/OSMUvIdxOLAAYfD3uM1ZEX+1OYO3MCX4f7T7wbaG
wc/G2P/SSDDFcpsS90euAP0fTowRxhBjijHGSKK4UDooLZQl3OvBjyJKHaXx
x9r/8KPfowfRk+gh9Dj6hXdwOvVf/ggAKzAOazDe9tn3nz6jxGCpKih9lDYs
H5aNYkNxARmUMqyJhNKFdavAVINtyze8/7fs//LhH1Hf5sPJ4xA4dpweTuLf
M4lSRJW/UjZi+s8Ibdnq+zeuBn9H/q3f4B+R9oc/Lf7NicxGXkH2IO8ge5Ed
yFYggLyFbEP2IW9s4L+r6O3mKvqjzX7TnlBYTvD/6CNv69yIZIz8efkZ+bWt
sVhKYuzGBjOIjEqiBgcGxQqQ4JOfImAW4Se7Q0BRXgE+tTfuka1j6qv95v0A
sT3+D40yDcBOeG/gBv5DCzkKQH03AOy5/6GJeQDACZ/Ll574xVHjt2iojQ4N
8Jv3EyfgA8JAAvZHEagCLaAHjIA5sAGOwA14wVEOgtczFSSA3SANZIE8cAQU
gzJwEpwG58AFcBm0gg5wB9wDD8EAGAKv4NXzDsyBBbAMViEIwkJ0EDPECfFD
opA0pAipQzqQEWQJ2UNukA8UCEVAcdBuKAPKgwqhMqgKqoMuQdegO1AvNAi9
gCagGegL9BOBRBAQLAhehBhCDqGOICEsEI6IXYhARDQiGZGJOIw4jqhGNCBa
EHcQDxFDiHHEHGIJCZC0SDakIFIGqY40QNog3ZEBSCpyLzIXWYKsRjYi2+E8
P0WOI+eRKygMihklgJKBV7Apygnlh4pG7UUdRJWhzqFaUF2op6gJ1ALqN5oO
zYOWRmuizdCu6EB0AjoLXYKuQTeju+Hd9A69jMFg2DDiGDV4N7phQjApmIOY
SkwT5jZmEDOFWcJisZxYaaw21gZLxsZis7Cl2AbsLewT7DvsDxpaGn4aRRpj
GneaCJp0mhKaepqbNE9oPtCs4hhwojhNnA3OH5eEy8edwbXjHuPe4VbxjHhx
vDbeER+CT8Mfxzfiu/Gj+K+0tLRCtBq0drTBtKm0x2kv0t6nnaBdITARpAgG
BE9CHOEwoZZwm/CC8JWOjk6MTo/OnS6W7jBdHd1dujG6H0RmoizRjOhP3Ecs
J7YQnxA/0ePoRelJ9F70yfQl9FfoH9PPM+AYxBgMGMgMexnKGa4xjDAsMTIz
KjDaMIYzHmSsZ+xlnGbCMokxGTH5M2UynWa6yzTFjGQWZjZg9mPOYD7D3M38
jgXDIs5ixhLCksdygaWfZYGViVWZ1Zk1kbWc9QbrOBuSTYzNjC2MLZ/tMtsw
2092XnYSO4U9h72R/Qn7dw5uDj0OCkcuRxPHEMdPTgFOI85QzgLOVs7XXCgu
KS47rgSuE1zdXPPcLNxa3H7cudyXuV/yIHikeOx5UnhO8/TxLPHy8ZrwRvGW
8t7lnedj49PjC+Er4rvJN8PPzK/DH8xfxH+Lf1aAVYAkECZwXKBLYEGQR9BU
ME6wSrBfcFVIXMhJKF2oSei1MF5YXThAuEi4U3hBhF/ESmS3yHmRl6I4UXXR
INFjoj2i38XExVzEDoi1ik2Lc4ibiSeLnxcflaCT0JWIlqiWeCaJkVSXDJWs
lByQQkipSAVJlUs9lkZIq0oHS1dKD+5A79DYEbGjeseIDEGGJBMvc15mQpZN
1lI2XbZV9pOciJy7XIFcj9xveRX5MPkz8q8UmBTMFdIV2hW+KEop+imWKz5T
olMyVtqn1Ka0qCytTFE+ofxchVnFSuWASqfKL1U1Vapqo+qMmoiaj1qF2og6
i7qt+kH1+xpoDX2NfRodGiuaqpqxmpc1P2vJaIVq1WtN7xTfSdl5ZueUtpA2
WbtKe1xHQMdH55TOuK6gLlm3WndST1jPX69G7wNJkhRCaiB90pfXp+o36383
0DTYY3DbEGloYphr2G/EZORkVGY0ZixkHGh83njBRMUkxeS2KdrUwrTAdMSM
18zPrM5swVzNfI95lwXBwsGizGLSUsqSatluhbAytzpqNWotah1h3WoDbMxs
jtq8thW3jba9boexs7Urt3tvr2C/277HgdnB26HeYdlR3zHf8ZWThFOcU6cz
vbOnc53zdxdDl0KXcVc51z2uD9243ILd2tyx7s7uNe5LHkYexR7vPFU8szyH
d4nvStzV68XlFeZ1w5vem+x9xQft4+JT77NGtiFXk5d8zXwrfBf8DPyO+c35
6/kX+c9QtCmFlA8B2gGFAdOB2oFHA2eCdINKguaDDYLLghdDTENOhnwPtQmt
DV0PcwlrCqcJ9wm/FsEUERrRFckXmRg5GCUdlRU1Hq0ZXRy9QLWg1sRAMbti
2mJZ4Bf2vjiJuP1xE/E68eXxPxKcE64kMiZGJPYlSSXlJH1INk4+m4JK8Uvp
3C24O233xB7Snqq90F7fvZ37hPdl7nuXapJ6Lg2fFpr2KF0+vTD9W4ZLRnsm
b2Zq5tR+k/3ns4hZ1KyRA1oHTmajsoOz+3OUckpzfuf65z7Ik88ryVs76Hfw
wSGFQ8cPrR8OONyfr5p/4gjmSMSR4QLdgnOFjIXJhVNHrY62FAkU5RZ9K/Yu
7i1RLjl5DH8s7tj4ccvjbaUipUdK18qCyobK9cubKngqciq+V/pXPjmhd6Lx
JO/JvJM/TwWfel5lUtVSLVZdchpzOv70+zPOZ3rOqp+tq+Gqyav5VRtRO37O
/lxXnVpdXT1Pff55xPm48zMNng0DFwwvtDXKNFY1sTXlXQQX4y7OXvK5NHzZ
4nLnFfUrjVdFr1Y0MzfntkAtSS0LrUGt421ubYPXzK91tmu1N1+XvV7bIdhR
foP1Rv5N/M3Mm+u3km8t3Y66PX8n8M5Up3fnq7uud5912XX1d1t0379nfO9u
D6nn1n3t+x29mr3XHqg/aH2o+rClT6Wv+ZHKo+Z+1f6Wx2qP2wY0BtoHdw7e
fKL75M5Tw6f3npk9ezhkPTQ47DT8fMRzZPy5//PpF2EvFl/Gv1x9lTqKHs19
zfC6ZIxnrPqN5JumcdXxGxOGE32TDpOvpvym5t7GvF17l/me7n3JB/4PddOK
0x0zxjMDsx6z7+ai5lbnsz4yfqz4JPHp6me9z30LrgvvFqmL618OfuX8WvtN
+Vvnku3S2HL48ur33B+cP86tqK/0/HT5+WE1YQ27dvyX5K/23xa/R9fD19ej
yFTy5qsAEn4QAQEAfKkFgM4NAOYBAPAeW3XedkPCLx8bdbEzZIQgIdVRHGg8
hgYrT+OGy8DfImDoyMRWBjxjGNMDFhXWCnbAEcrZz63Kc4R3jl9PIF9wUBgv
oiHqJhYqHi7hKakvxSu1KH1vR6lMqKy2HJ3cG/kmhVRFOyVBpY/K11T2q9qp
8ai9U2/USNQkaeG1nu6s0PbX2aHzRbdVbzdJX5+g/8bgpmG9UaVxgcleU7KZ
rjmH+aJFn2WjVaV1lU2H7ZQ92oHTkcuJwRnpvOay6gbccR5ET7pdqF1LXpPe
Az63yVd8a/xK/XMpSQGBgY5B+sHKIVKhgmGc4fQRyIhvkZNRA9HXqWdiDsfu
i8uKb05EJVGSb+8Ge8T2au4zS/VIi0s/nFGcmbJfef9UVv4B22zRHNpckIc4
yHhI4rBOvvURlwL3QvejrkXOxY4ldsesj1uUmpTpl+tUaFQqnZA5KXVKvsqi
OuP0+FmzmobauTrGetHzCg1aFwwbrZpcLnpfCrocdSXh6t7m9Jb9rdltedfy
24uvV3TU3Lh6s/vWyO3xO8OdTXcDuji67neX3EvoCbi/q9flgd1Diz6TR6b9
jo+jB04NvnhK+0xuyGDYbMToufoL0ZfElyuvpkefv74zdvpNxnjghNOk9ZTV
W5t3Nu/NP2hMs0+Pz+TOKs+Oz52bT/5o+onmU91nk89TC6cXE794fbX5ZrUU
stz548DP1l+G6+vb+VdAopAzqHH0FGaBBolTxQfRVhDGiVL0CQz3mDiZk1ie
sSmyp3O85lLhzuIZ4OPidxUoEOwQGhVeElkWnRV7JH5agiqpI0Uj9Uz65I4Q
GRWZ37L35A7LuyjwK3xQbFSKV9ZWgVS6VXPVbNSZ1Yc1SjU9tHi1RuFV4KnD
qTOie0zPgyRGWtUfMrhkeNCIYrzThNHkvWmHWbF5vAXF0tcqyDrSJtzW187G
XstBypHbieiMcF52+eA67HbXvdGj3DN3V7JXsLerjyFZzpfDD/Kb9R+idAU0
B9YElQRnhkSGuoXphYtH0MErYSJqLPpbjGCsd1xp/J2E54lTSfPJK7tp9/Dt
ldgnkIpJfZPWnJ6fQc302u+U5XogODsjpzL3Ql7zwZZDVw9fyr9wpK7gbOGp
o+VFxcX5JTnH0o8nlUaWBZYHV6RW3jopeepctfjpwjNPz67UEs9x1QnXS8Hr
QO2CTqNhk9VFt0thl7OunL56s3mwZax1uu1rO/I6e4f0Da2berfUbgveQdyZ
7Oy529xV211+70jP/vvJvdQHsQ9z+jr62R7vGXj9hOup7jPHoYDh1JGzzx+/
+PaKaVTmteVY1Jtj49cnnkyOTU2+nXuPhrOfNjM4xzgv/1Hlk9hn+s8/Ft4v
jnx58PXat6qlfcvO38W/L//oWEn+qbVKWDP8NbOdf1loDlGJ9EJJorHoRcwM
dpZmErdIiyeI0pGI7vRpDA2Mg0zrLKKsRmwh7Ps5TnJe5ermvs9zj/c6XxV/
ooC+wE/BM0IWQnPC2SLiIp2iXqIrYkXi8uIPJAIlsZK1UqZSH6Szdkjs6Jbx
kwWylXI75Z7Lx8FvN02KlorTShnKfMptKvYq86r71fjVWuG3lmmNfZpsmue1
SFpPdvrt/KSdooPVKddV1h3WSybxkdr0bfRfGAQZrBtWG9ka44zvmuw2VTad
Nas297TgsBi2LLZysKa37rXJsNWy/WbXZB/qIO7w1rHKaZczp/Mzl3xXU9d1
t2b3MA8Rj9eeJbusdy17FXmLel/1Ifm8JCf6Cvk+h8+RIIpJgFqgRpBZMDkk
PJQcphvOED4acTYyPEolai36LjU3xjaWNfZV3Ml4/wSxhPeJJ5KMkkaTw1JY
Up7uvr7n5t6ufXdTr6XVpZdkZGRG7vfIMjoglY3OfpZTmuueJ5K3enD80KPD
1/JPHdlb4FGoeZTr6ErRcPHlkmPHDh0vLK0qu1J+r+J55eyJ1VN0VQLVSqdN
z3iejazZW5tz7mBdaj35vFoDseHLhY+NKxcJl/guK16xvZrSfLXlR5vGtaj2
0usXO9puXL/Ze2vpjknntS6H7qWekl6lB8/6DvX7DJg9IT3THw57QRydm+yf
Xfq2spH/rd/7NhpGFYCjaXCFmgWAky4ABV1wnTkE1514AGzpAHDUAAixAIAg
9AFIc+Lv/QHBtw0G0AJGwAH4gTiQB5pwlWwD3EEAiIGry3xwAjSCm+AxmADf
4MqRB1KATCBvKAEqgBqg+9B7BAYhgbBExCAq4TpvHa7r4pHXkL9RJqijqEm0
Ejob/QajiSnFrMIV1gMaNZpaHDeuAE+Lz6HF0x4hcBFq6ZTpOojaxHZ6dfrr
DKYMrxhjmRiYLjAbMg+yOLIMstqwPmHzZvvBXsqhzTHGuYeLm6ud24sHx9PB
G8+nzPeV/7IAVVBFcE2oR7hEJEh0pxhRbFz8ikS2pK8USVpsB3HHqswn2bdy
Q/LNCimKCopjStnKKsqfVdpUC9WS1P01LDXltdh3ErVldcr1pEmH9HsNPhvR
GLOacJrymImYK1tYW0ZbHbfusvliJ2zv4nDYsccZ5WLomuXW58Hm6bur3uut
D4bM6IvxXfJ75z9KmQ2kD7IILg75ELYzvCjiU5R5dH0MITY67mWCcWJbskxK
zR6BveWpbGkFGfjMtP1LB0Ky53LzDoYfbi5gPMpV9LGk7rh3GVv5QOWhkyan
lqrzz7Ccza5ZPhda9+X8kQtGTYwXFy+/vzrdMtf2oX2qY/EW+x2Du17dPj0O
vboP5R5JPlYdjHj6YwT1Ejd68g3zxM13xOndc6SPTZ9Xv6h+M17Gfz/048HK
9M93qy/Wrv468tt3XX7z/NjIPxYQABPgBIJACigBbWAKHIEPCAcpIAeUgjpw
DTwEr8EChIa4IPnN7CdBRdBFqB/6iKBHKCHcERmIy4h3SH6kN/IMch6lispE
DaEl0WnoUTj35ViADcIO0RjRtOHkcPV4SXwDrTLtLYItYYoukYgjFtML0l+E
69dXjAlMbEytzM7MH1n2sOJZj7PJsD1gj+Rg57jNGczFwnWbO5JHhGeUt5TP
lZ+D/4VApaC/kLwwEH4mcl40U8xTXBmu5WYl+6SuwLdYvkyG7G65WHk/BT1F
gmK/Uq6yhQq7yqLqC7Ue9RaNas2DWsk747VzdNp0v5OU9P0N8gxrjFqMr5tc
N71h1ms+YYmwkrJ2ttlv22o37yDi6O1U6TzmKuQW4t7iid3l4lXm3e0zSO70
rfPL9g+m2AeYBroFpQffDqUL8w3viOSKSo5+HaMfWxdPnxCV+DBZMCV+98Be
lX1n0rjTizLx+1Oy5rPJOZN5yYfk8xFHXhdeKoovUT72pfRSeVyl5omfp2qq
FU9XnvlQI14bdO5iPfv5igvajR8vll7WuNLfTG5Zbatut+sAN+puWd5e7DzZ
5XtP877gA9TDR4/iH2MGcp8QnlYPeY9YvQh7Vfv6wzj/pO3btPc3Z9jnjnwS
W3j0tWj54IrZquLaiV9vfy9u5x8FcIAB3v2CQBqoAgNgC7zg3O+Bd34VuAru
gzF43xMgMUgP2gWlQOXQDWgCgYOzTkYUIwaQrEgK8gaKB5WKmkW7oR9hDDA3
sNrYOzSWNK9xMXh6/EVaZwKS0EoXTVQg/qDvZihljGNyYzZjMWe1YzNnV+OQ
5FTh8uZO4onl9eVz5LcWsBK0ErIUthKxF/UWixE/JFEveV9qZgedjJpsgFyZ
/LAil5K/cpPKqpqt+iPNnJ1uOmjdI3pr+hYGGXAGW407TG6a9putWlhYtljL
2jTYydq3OBo4DbuEu+HdGzydvRh9aH29/T0obwO1gvKC34fah/VFWEU+ifag
TsemxPMljCXdS7m9p3KfU+rP9KpM5yz+Aws5N/IOHgrINyngLHxYFFC8fCyj
lLGsukK18tHJgCqouuKM+tmh2rg67vr7DfsaTS7KXTa+uq+lui2/3a2D/cbI
rfI7bnexXWfvKfdc7zV6MNKX2C83gBxceDo9NDhS8EL8ZeWr36+NxnLfPJyg
n3SaOvV25r3Ch9DpUzP3Z2fn0R95Psl/NlxwWSR/8f9q+03o29LSoWWe5frv
Gt/Lvq/8cPnRssK2Ql1pWVn9qfcz82fvKnHVYfXY6sAazZreWuLapbWZX4K/
3H4V/nrw69dvhd/+v4/9fvj797rCOmX9+HrfRv5jApQUN68PiKAPAHpsff2r
GADYQgB+Fayvr1avr/86DRcbowDcDtv6D2nzrmEAoGJhAz1s+5n67/9y/g/I
Mub5
      "], "RGB", "XYZ"], Interleaving -> True],
   Selectable->False],
  DefaultBaseStyle->"ImageGraphics",
  ImageSizeRaw->{418, 440},
  PlotRange->{{0, 418}, {0, 440}}]], "Input",
 CellID->1662067199,ExpressionUUID->"81266876-97ce-4377-942d-67fb6ac035af"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "a163f781-b1a5-4f20-ab2a-dc04d7797d43"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"6dae3fd0-057a-449d-8f77-1fdd9fff803c"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "f30c62a4-3504-4e89-9c78-0cd3c156daa8"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"b4fa260a-cd24-4b5f-a514-8ea2d504db9a"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"DataFile\"", "ExampleSubsection",ExpressionUUID->
   "775d0b68-e6fb-4b2d-95d4-b3256c102b50"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.6844821809331007`*^9, 3.684482182799614*^9}, {
  3.6844839602566023`*^9, 3.6844839609570227`*^9}},
 CellID->1757724783,ExpressionUUID->"6609d1ff-a0b5-4516-a912-b43fd368d452"],

Cell[TextData[{
 "By default, the crystal data is stored in an ",
 StyleBox[".m", "Program"],
 " file included in the package directory."
}], "ExampleText",
 CellChangeTimes->{{3.684482236977132*^9, 3.684482288494114*^9}, {
  3.684482422850135*^9, 3.684482487113904*^9}, {3.6844825211881332`*^9, 
  3.684482522800403*^9}, {3.714385037867799*^9, 3.714385039609208*^9}},
 CellID->652368203,ExpressionUUID->"ca907e0d-8c65-4adb-8592-3e5eef71734e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "@", "$CrystalData"}]], "Input",
 CellChangeTimes->{{3.6844824991542253`*^9, 3.684482512757148*^9}},
 CellLabel->"In[1]:=",
 CellID->868839754,ExpressionUUID->"c17c1e57-3882-4580-baf4-70d1ad7e9ce9"],

Cell[BoxData["30"], "Output",
 CellChangeTimes->{{3.684482505006146*^9, 3.684482513070616*^9}, {
   3.684482693960018*^9, 3.684482717869328*^9}, 3.684482813171783*^9, 
   3.714385032108444*^9, 3.714385431528854*^9, {3.714385465138076*^9, 
   3.714385483723604*^9}, {3.718013783213635*^9, 3.718013787108485*^9}, 
   3.718013976492786*^9, 3.7180140256796007`*^9, {3.730143128732223*^9, 
   3.730143145665938*^9}, 3.7441744318345327`*^9, 3.780118734471993*^9, {
   3.787058395050973*^9, 3.787058406114647*^9}, {3.787058476950849*^9, 
   3.787058480710554*^9}},
 CellLabel->"Out[1]=",
 CellID->917034497,ExpressionUUID->"d0ca539c-6b63-4a61-b6ef-2b27aecc2248"]
}, Open  ]],

Cell[TextData[{
 "Setting the ",
 Cell[BoxData[
 "\"\<DataFile\>\""], "InlineFormula",ExpressionUUID->
  "45cb3523-a77a-4225-8273-a29b7cd92744"],
 " path to a file that does not exists will prompt the function to create a \
new one there."
}], "ExampleText",
 CellChangeTimes->{3.684482527709708*^9},
 CellID->1059758639,ExpressionUUID->"f0dd8ce9-1a17-4f7e-ba05-448d0c6e9a20"],

Cell[BoxData[
 RowBox[{
  RowBox[{"newFile", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{"$TemporaryDirectory", ",", "\"\<temp.m\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.684482674670994*^9, 3.684482681257104*^9}, 
   3.718013830750032*^9, 3.7180139784571257`*^9},
 CellLabel->"In[2]:=",
 CellID->1308774891,ExpressionUUID->"2e44871f-faf0-4f6b-b0e8-e74e84368ce0"],

Cell[TextData[{
 "Let us now add ",
 StyleBox["ferrocene",
  FontSlant->"Italic"],
 " to our new data file:"
}], "ExampleText",
 CellChangeTimes->{{3.718013755847024*^9, 3.7180137761891947`*^9}},
 CellID->493738938,ExpressionUUID->"e181a77b-d0f8-482b-8af8-21158756e721"],

Cell[BoxData[
 RowBox[{
  RowBox[{"demoCIF", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$MaXrdPath", ",", "\"\<ExampleFiles\>\"", ",", "\"\<CIF\>\"", ",", 
      "\"\<Ferrocene.cif\>\""}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6844815631399517`*^9, 3.6844815864420958`*^9}, {
   3.684481623942554*^9, 3.684481637020485*^9}, 3.714385137675448*^9, {
   3.714385232515678*^9, 3.7143852357563267`*^9}, 3.714385291847741*^9, 
   3.714385427280857*^9, 3.718013669114045*^9, {3.718013703809943*^9, 
   3.7180137262229147`*^9}, {3.718013951819749*^9, 3.718013972890441*^9}, 
   3.74386542061537*^9},
 CellLabel->"In[3]:=",
 CellID->729440482,ExpressionUUID->"2a156c61-b1f3-44e6-b15d-5d4996f2d315"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImportCrystalData", "[", "\[IndentingNewLine]", 
  RowBox[{
  "demoCIF", ",", "\[IndentingNewLine]", "\"\<TestName\>\"", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<DataFile\>\"", "\[Rule]", "newFile"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684482589400642*^9, 3.684482686813857*^9}, {
   3.714385076310932*^9, 3.714385079309537*^9}, {3.714385269271823*^9, 
   3.714385270608788*^9}, {3.714385375338787*^9, 3.714385403545096*^9}, 
   3.717942442917736*^9, {3.718013800214651*^9, 3.7180138008532677`*^9}},
 CellLabel->"In[4]:=",
 CellID->1869523898,ExpressionUUID->"9bc4f2f2-844d-4eb4-95cb-77298b959b63"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"ChemicalFormula\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(10\\)]\\)\\!\\(\\*SubscriptBox[\\(H\\), \\(10\\)]\\)Fe\"\>"}], ",", 
   RowBox[{"\<\"FormulaUnits\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"SpaceGroup\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)/n\"\>"}], ",", 
   RowBox[{"\<\"LatticeParameters\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"a\"\>", "\[Rule]", 
       TemplateBox[{
        "5.9285`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"b\"\>", "\[Rule]", 
       TemplateBox[{
        "7.612`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"c\"\>", "\[Rule]", 
       TemplateBox[{
        "9.041`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"\[Alpha]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Beta]\"\>", "\[Rule]", 
       TemplateBox[{
        "93.156`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Gamma]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}]}], "\[RightAssociation]"}]}], ",", 
   RowBox[{"\<\"Wavelength\"\>", "\[Rule]", 
    TemplateBox[{
     "0.69804`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
      "\"Angstroms\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"AtomData\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}], "}"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.684482647214025*^9, {3.684482687168544*^9, 3.6844827182662907`*^9}, 
   3.684482813580224*^9, {3.714385270925609*^9, 3.714385282713292*^9}, {
   3.7143853173534803`*^9, 3.714385431871204*^9}, 3.714385484095126*^9, {
   3.718013803821106*^9, 3.71801381779195*^9}, 3.718013984166182*^9, 
   3.718014027249095*^9, 3.7301431469349623`*^9, 3.787058410932715*^9, 
   3.787058485269958*^9},
 CellLabel->"Out[4]=",
 CellID->2076207223,ExpressionUUID->"426b28c7-65a8-410b-ae37-6f569986d463"]
}, Open  ]],

Cell[TextData[{
 "Now, ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"b9e6d55a-5522-4c16-b9bb-0866279ff6ac"],
 " is read from a new file with only one element:"
}], "ExampleText",
 CellChangeTimes->{{3.6844827253243923`*^9, 3.684482763280448*^9}, {
  3.714385499062851*^9, 3.714385503735035*^9}},
 CellID->1566409905,ExpressionUUID->"b607281c-5965-4ce2-be05-f69e9017d744"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", "@", "$CrystalData"}]], "Input",
 CellChangeTimes->{{3.684482767449856*^9, 3.684482769609305*^9}, {
   3.684482800706756*^9, 3.684482802056912*^9}, 3.684482835266814*^9, {
   3.718013993881052*^9, 3.718014019128014*^9}},
 CellLabel->"In[5]:=",
 CellID->268858332,ExpressionUUID->"232d60d9-05a1-4793-bb40-c9ba4de17d68"],

Cell[BoxData[
 RowBox[{"{", "\<\"TestName\"\>", "}"}]], "Output",
 CellChangeTimes->{{3.714385405604395*^9, 3.714385432016346*^9}, 
   3.714385484242311*^9, {3.718013988268808*^9, 3.718014027378377*^9}, 
   3.730143147053507*^9, 3.7870584125053787`*^9, 3.7870584951464577`*^9},
 CellLabel->"Out[5]=",
 CellID->1457218410,ExpressionUUID->"bdd82b3b-32dd-4cb2-8369-22c74fad3355"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"ExtractSubdata\"", "ExampleSubsection",ExpressionUUID->
   "49fd9676-ba40-4e90-bda8-8f4c716cc826"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.6844821968617773`*^9, 3.6844821996872663`*^9}},
 CellID->289570966,ExpressionUUID->"8af8d289-0291-45bb-ba06-eda6f586829d"],

Cell[TextData[{
 "The following example CIF is downloaded from ",
 ButtonBox["IUCr's website",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://journals.iucr.org/services/cif/examples.html"], None}],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.7180145399654303`*^9, 3.71801464936158*^9}},
 CellID->696659447,ExpressionUUID->"e0da0c4a-a0e6-4cd3-932f-251d3821f222"],

Cell[BoxData[
 RowBox[{
  RowBox[{"demoCIF", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$MaXrdPath", ",", "\"\<ExampleFiles\>\"", ",", "\"\<CIF\>\"", ",", 
      "\"\<IUCr_produced_with_crystals.cif\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6844815631399517`*^9, 3.6844815864420958`*^9}, {
   3.684481623942554*^9, 3.684481637020485*^9}, 3.714385510704624*^9, 
   3.7143855434046307`*^9, 3.71438566197972*^9, {3.718014700930891*^9, 
   3.718014732247972*^9}, 3.718014771985544*^9, 3.7438654207143097`*^9},
 CellLabel->"In[1]:=",
 CellID->302111784,ExpressionUUID->"98466ddf-4c7b-4485-b4a3-ce3b0942a46c"],

Cell["The file includes three structures:", "ExampleText",
 CellChangeTimes->{{3.718014745649086*^9, 3.718014763390967*^9}},
 CellID->801432288,ExpressionUUID->"2a8a1f3d-2046-473e-9cdd-62116dfa4521"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ImportCrystalData", "[", "\[IndentingNewLine]", 
    RowBox[{"demoCIF", ",", "\"\<TestName\>\"", ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<ExtractSubdata\>\"", "\[Rule]", "S"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<OverwriteWarning\>\"", "\[Rule]", "False"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"S", ",", "1", ",", "\"\<Subdata\>\""}], "}"}], ",", 
     RowBox[{"Range", "@", "3"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.684483044214519*^9, 3.684483124197359*^9}, {
   3.684483857150401*^9, 3.684483857266343*^9}, {3.684484038749577*^9, 
   3.684484097555656*^9}, {3.6844843111929502`*^9, 3.6844844401573877`*^9}, {
   3.684484504921928*^9, 3.684484562540998*^9}, {3.705379737567687*^9, 
   3.705379785725823*^9}, {3.705384831038157*^9, 3.705384831834364*^9}, {
   3.714385732342924*^9, 3.714385733136544*^9}, 3.717942444972486*^9, {
   3.718014767860365*^9, 3.718014770207892*^9}, {3.718014872453486*^9, 
   3.718014880941078*^9}, {3.718016322947679*^9, 3.718016323667944*^9}},
 CellLabel->"In[2]:=",
 CellID->153910032,ExpressionUUID->"77cf6886-905e-4128-b645-c941f39459a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"RoundAnglesThreshold\"", "ExampleSubsection",ExpressionUUID->
   "5d9320ce-42e1-4f95-b907-3fd3d92afb90"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.6844821896691637`*^9, 3.684482193765052*^9}},
 CellID->1295379749,ExpressionUUID->"06811ef8-6b55-49e6-8d61-cc0105cc4d69"],

Cell[BoxData[
 RowBox[{
  RowBox[{"demoCIF", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
     "$MaXrdPath", ",", "\"\<ExampleFiles\>\"", ",", "\"\<CIF\>\"", ",", 
      "\"\<Ferrocene.cif\>\""}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6844815631399517`*^9, 3.6844815864420958`*^9}, {
   3.684481623942554*^9, 3.684481637020485*^9}, 3.714385510704624*^9, 
   3.7143855434046307`*^9, 3.71438566197972*^9, 3.718014061081944*^9, 
   3.743865420777522*^9},
 CellLabel->"In[1]:=",
 CellID->1036321041,ExpressionUUID->"88332e1d-09e1-48cc-bb1f-8e464ccb5452"],

Cell["Default value for the threshold is 0.001 degrees.", "ExampleText",
 CellChangeTimes->{{3.684482926614725*^9, 3.684482946198874*^9}},
 CellID->2011554711,ExpressionUUID->"7ba10709-908c-482f-9707-5d47932be85b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImportCrystalData", "[", 
  RowBox[{"demoCIF", ",", "\"\<TestName\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.684482955404643*^9, 3.684482987839435*^9}, {
   3.7143855598766003`*^9, 3.7143855609156322`*^9}, 3.7179424437101583`*^9, {
   3.7180140671370583`*^9, 3.718014067782876*^9}},
 CellLabel->"In[2]:=",
 CellID->1664293238,ExpressionUUID->"dcf4aafd-fe1a-415d-801b-a3fc4f570d7a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"ChemicalFormula\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(10\\)]\\)\\!\\(\\*SubscriptBox[\\(H\\), \\(10\\)]\\)Fe\"\>"}], ",", 
   RowBox[{"\<\"FormulaUnits\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"SpaceGroup\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)/n\"\>"}], ",", 
   RowBox[{"\<\"LatticeParameters\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"a\"\>", "\[Rule]", 
       TemplateBox[{
        "5.9285`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"b\"\>", "\[Rule]", 
       TemplateBox[{
        "7.612`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"c\"\>", "\[Rule]", 
       TemplateBox[{
        "9.041`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"\[Alpha]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Beta]\"\>", "\[Rule]", 
       TemplateBox[{
        "93.156`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Gamma]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}]}], "\[RightAssociation]"}]}], ",", 
   RowBox[{"\<\"Wavelength\"\>", "\[Rule]", 
    TemplateBox[{
     "0.69804`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
      "\"Angstroms\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"AtomData\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}], "}"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.684482984096649*^9, 3.684482988242834*^9}, 
   3.684483883871956*^9, {3.7143855613958282`*^9, 3.714385600101994*^9}, 
   3.714385630979293*^9, 3.7143856661902847`*^9, 3.718014068974009*^9, 
   3.718014127298872*^9, 3.73014319371719*^9, 3.730144493018911*^9},
 CellLabel->"Out[2]=",
 CellID->1767627716,ExpressionUUID->"4f48b128-95e7-4dc3-8180-409cd8b4d44d"]
}, Open  ]],

Cell["Lowering the threshold:", "ExampleText",
 CellChangeTimes->{{3.684483017025785*^9, 3.684483040615534*^9}, 
   3.684483859610374*^9},
 CellID->1662673533,ExpressionUUID->"b9ca2875-cdb7-453c-a038-f5e377ef8b95"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImportCrystalData", "[", 
  RowBox[{"demoCIF", ",", "\"\<TestName\>\"", ",", 
   RowBox[{"\"\<RoundAnglesThreshold\>\"", "\[Rule]", "0.25"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.684483044214519*^9, 3.684483124197359*^9}, {
   3.684483857150401*^9, 3.684483857266343*^9}, {3.7143856392227707`*^9, 
   3.71438564886205*^9}, 3.7179424443322163`*^9, {3.718014084136755*^9, 
   3.71801408979312*^9}},
 CellLabel->"In[3]:=",
 CellID->1174973214,ExpressionUUID->"0292d84c-9647-49be-a02b-d9203e30dfbf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"ChemicalFormula\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(10\\)]\\)\\!\\(\\*SubscriptBox[\\(H\\), \\(10\\)]\\)Fe\"\>"}], ",", 
   RowBox[{"\<\"FormulaUnits\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"SpaceGroup\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)/n\"\>"}], ",", 
   RowBox[{"\<\"LatticeParameters\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"a\"\>", "\[Rule]", 
       TemplateBox[{
        "5.9285`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"b\"\>", "\[Rule]", 
       TemplateBox[{
        "7.612`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"c\"\>", "\[Rule]", 
       TemplateBox[{
        "9.041`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"\[Alpha]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Beta]\"\>", "\[Rule]", 
       TemplateBox[{
        "93",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Gamma]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}]}], "\[RightAssociation]"}]}], ",", 
   RowBox[{"\<\"Wavelength\"\>", "\[Rule]", 
    TemplateBox[{
     "0.69804`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
      "\"Angstroms\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"AtomData\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}], "}"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.684483052632202*^9, 3.6844831249385643`*^9}, 
   3.684483230134328*^9, {3.684483854651087*^9, 3.684483884112659*^9}, {
   3.7143856404541807`*^9, 3.7143856664194193`*^9}, {3.718014085311162*^9, 
   3.718014090821115*^9}, 3.718014129090581*^9, 3.730143198728216*^9, 
   3.730144494673285*^9},
 CellLabel->"Out[3]=",
 CellID->56913535,ExpressionUUID->"dff8fd0e-db0f-425a-ae7c-3f9c59e68ad5"]
}, Open  ]],

Cell["We see that \[Beta] was rounded from 93.156\[Degree] to 93\[Degree].", \
"ExampleText",
 CellChangeTimes->{{3.718014097783387*^9, 3.718014115845846*^9}},
 CellID->2075270634,ExpressionUUID->"0fab16ba-045c-4132-8776-2e88125e7ec3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"Units\"", "ExampleSubsection",ExpressionUUID->
   "6937f191-16f1-4eb0-b213-b80db8f99086"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.6844822013841743`*^9, 3.684482204699033*^9}, {
  3.6865399889258413`*^9, 3.686539989277584*^9}},
 CellID->134769657,ExpressionUUID->"32a60e95-7540-43cf-b3c6-657731c02f7c"],

Cell[TextData[{
 "By default, the lattice parameters are stored with both magnitude and unit \
as a ",
 Cell[BoxData[
  ButtonBox["Quantity",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Quantity"]], "InlineFormula",ExpressionUUID->
  "34d6f996-aa90-4f4f-8606-950c6565785b"],
 "."
}], "ExampleText",
 CellChangeTimes->{{3.684484615732192*^9, 3.684484652422578*^9}},
 CellID->1439120908,ExpressionUUID->"f2058a9c-6318-4540-be1f-487072ab5fc0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImportCrystalData", "[", 
  RowBox[{"demoCIF", ",", "\"\<TestWithUnits\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.6844846638341713`*^9, 3.684484678070285*^9}, {
   3.7143858352143717`*^9, 3.714385835798326*^9}, 3.717942445596387*^9, 
   3.718016564830492*^9},
 CellLabel->"In[4]:=",
 CellID->862987509,ExpressionUUID->"3260361b-3532-4539-9ead-42b1ac8fd008"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"ChemicalFormula\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(10\\)]\\)\\!\\(\\*SubscriptBox[\\(H\\), \\(10\\)]\\)Fe\"\>"}], ",", 
   RowBox[{"\<\"FormulaUnits\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"SpaceGroup\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)/n\"\>"}], ",", 
   RowBox[{"\<\"LatticeParameters\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"a\"\>", "\[Rule]", 
       TemplateBox[{
        "5.9285`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"b\"\>", "\[Rule]", 
       TemplateBox[{
        "7.612`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"c\"\>", "\[Rule]", 
       TemplateBox[{
        "9.041`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
         "\"Angstroms\""},
        "Quantity"]}], ",", 
      RowBox[{"\<\"\[Alpha]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Beta]\"\>", "\[Rule]", 
       TemplateBox[{
        "93.156`",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}], ",", 
      RowBox[{"\<\"\[Gamma]\"\>", "\[Rule]", 
       TemplateBox[{
        "90",RowBox[{"\[InvisibleSpace]", "\"\[Degree]\""}],"degrees",
         "\"AngularDegrees\""},
        "QuantityPostfix"]}]}], "\[RightAssociation]"}]}], ",", 
   RowBox[{"\<\"Wavelength\"\>", "\[Rule]", 
    TemplateBox[{
     "0.69804`","\"\[CapitalARing]\"","\[ARing]ngstr\[ODoubleDot]ms",
      "\"Angstroms\""},
     "Quantity"]}], ",", 
   RowBox[{"\<\"AtomData\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}], "}"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.6844846784246264`*^9, 3.68448469905503*^9}, 
   3.68448473485772*^9, {3.71438582902966*^9, 3.714385863308083*^9}, 
   3.718016571839294*^9, 3.7301432123296556`*^9, {3.730144477406686*^9, 
   3.730144499200206*^9}},
 CellLabel->"Out[4]=",
 CellID->1746571648,ExpressionUUID->"8b3c796e-151a-44c2-8cc3-75b2468e70fe"]
}, Open  ]],

Cell["The following option may be set:", "ExampleText",
 CellChangeTimes->{{3.684484717893941*^9, 3.6844847319192142`*^9}},
 CellID->379077258,ExpressionUUID->"fe3032e7-f415-4c99-9805-1c88f7c03678"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ImportCrystalData", "[", 
  RowBox[{"demoCIF", ",", "\"\<TestWithoutUnits\>\"", ",", 
   RowBox[{"\"\<Units\>\"", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6844846638341713`*^9, 3.6844847105842524`*^9}, {
   3.68653999823698*^9, 3.686539998576058*^9}, {3.714385841221199*^9, 
   3.7143858418030853`*^9}, 3.717942446164432*^9, 3.718016577118271*^9},
 CellLabel->"In[5]:=",
 CellID->779816477,ExpressionUUID->"b8d84cc2-2ec9-4910-879f-c58bbe0a2db5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"ChemicalFormula\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(C\\), \
\\(10\\)]\\)\\!\\(\\*SubscriptBox[\\(H\\), \\(10\\)]\\)Fe\"\>"}], ",", 
   RowBox[{"\<\"FormulaUnits\"\>", "\[Rule]", "2"}], ",", 
   RowBox[{"\<\"SpaceGroup\"\>", 
    "\[Rule]", "\<\"\\!\\(\\*SubscriptBox[\\(P2\\), \\(1\\)]\\)/n\"\>"}], ",", 
   RowBox[{"\<\"LatticeParameters\"\>", "\[Rule]", 
    RowBox[{"\[LeftAssociation]", 
     RowBox[{
      RowBox[{"\<\"a\"\>", "\[Rule]", "5.9285`"}], ",", 
      RowBox[{"\<\"b\"\>", "\[Rule]", "7.612`"}], ",", 
      RowBox[{"\<\"c\"\>", "\[Rule]", "9.041`"}], ",", 
      RowBox[{"\<\"\[Alpha]\"\>", "\[Rule]", "90"}], ",", 
      RowBox[{"\<\"\[Beta]\"\>", "\[Rule]", "93.156`"}], ",", 
      RowBox[{"\<\"\[Gamma]\"\>", "\[Rule]", "90"}]}], 
     "\[RightAssociation]"}]}], ",", 
   RowBox[{"\<\"Wavelength\"\>", "\[Rule]", "0.69804`"}], ",", 
   RowBox[{"\<\"AtomData\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[LeftSkeleton]", "11", "\[RightSkeleton]"}], "}"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.684484695223775*^9, 3.684484699325828*^9}, 
   3.684484735115631*^9, {3.714385842271928*^9, 3.714385863516069*^9}, 
   3.7180165783041277`*^9, 3.7301432142800083`*^9, {3.730144479990633*^9, 
   3.73014450152109*^9}},
 CellLabel->"Out[5]=",
 CellID->1819733943,ExpressionUUID->"e708877c-63b7-465d-97f8-b17d674a0d14"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "8811ab59-622e-47dd-b2d7-f9c3005ab6cb"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"8ff35ea9-fd64-4ed4-a78b-78470d23f01a"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "f249125a-52c2-42a2-8a90-eac8af44550b"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"704bddf4-36a8-4714-90c2-be75f21b9297"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "5ec41aeb-b84d-4d26-8420-05380329f7e3"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"fcd82ca9-e84d-4563-b851-a87769468954"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "5ffe05cc-a061-48fa-8739-4629fe135921"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"007cefa5-d329-4337-8a5a-b12081cb6994"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "2c5c14e8-6ca9-4720-955d-d3c91b71027f"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"31b3db5c-1f27-4435-aa41-8402c762c5eb"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"75576d3a-923c-4fe0-8c16-c558248dba27"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.714921327855804*^9, 3.7149213301343107`*^9}},
 CellID->418123780,ExpressionUUID->"aac89469-3375-46df-948d-33356f799332"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ImportCrystalData", "::", "subdataInteger"}], "=", 
   "\"\<\\\"\!\(\*StyleBox[\"ExtractSubdata\", \"Program\"]\)\\\" must be a \
positive integer.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ImportCrystalData", "::", "subdataLength"}], "=", 
   "\"\<The \!\(\*StyleBox[\".\", \"Program\"]\)\!\(\*StyleBox[\"cif\", \
\"Program\"]\) file has a subdata length of `1`.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ImportCrystalData", "::", "latticeParameters"}], "=", 
   "\"\<No lattice parameters were located, or they have an invalid \
form.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ImportCrystalData", "::", "atomData"}], "=", 
   "\"\<No atom data was located.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ImportCrystalData", "::", "SG"}], "=", 
   "\"\<Could not determine space group. 'P1' will be used.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ImportCrystalData", "::", "cell"}], "=", 
   "\"\<Could not work out the unit cell properly.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ImportCrystalData", "::", "notMaXrd"}], "=", 
   "\"\<Data collected using `1` radiation. Errors may occur.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ImportCrystalData", "::", "modulation"}], "=", 
    "\"\<Modulated structure detected. Errors may occur.\>\""}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "ImportCrystalData"}], "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\"\<DataFile\>\"", "\[Rule]", 
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", 
         RowBox[{
         "$MaXrdPath", ",", "\"\<UserData\>\"", ",", 
          "\"\<CrystalData.m\>\""}], "}"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<ExtractSubdata\>\"", "\[Rule]", "1"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<IgnoreIonCharge\>\"", "\[Rule]", "False"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<Notes\>\"", "\[Rule]", 
       RowBox[{"<|", "|>"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"\"\<RoundAnglesThreshold\>\"", "\[Rule]", "0.001"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<Units\>\"", "\[Rule]", "True"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<OverwriteWarning\>\"", "\[Rule]", "True"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "ImportCrystalData"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"___", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.667811591227736*^9, 3.66810571214802*^9, {3.6681867516522207`*^9, 
   3.668186778354513*^9}, {3.6681868394172163`*^9, 3.6681868614325943`*^9}, {
   3.668187374101748*^9, 3.6681874104278383`*^9}, {3.668187695125526*^9, 
   3.668187730468417*^9}, {3.668188056044814*^9, 3.668188056876872*^9}, {
   3.6681926250344687`*^9, 3.668192625250432*^9}, 3.68166923708845*^9, {
   3.6817064191712627`*^9, 3.68170642414537*^9}, {3.6817239114596*^9, 
   3.681723955601696*^9}, {3.681724223652172*^9, 3.681724224172266*^9}, {
   3.6818128705108147`*^9, 3.681812886108671*^9}, {3.681819874858591*^9, 
   3.681819895264824*^9}, {3.681835709479094*^9, 3.681835743293057*^9}, {
   3.682100938006762*^9, 3.682100938717538*^9}, {3.683537673194815*^9, 
   3.683537695846451*^9}, {3.683537801117275*^9, 3.683537820368045*^9}, {
   3.6835378509602337`*^9, 3.6835379652168307`*^9}, {3.683872568026477*^9, 
   3.6838725813488774`*^9}, {3.6838755364193954`*^9, 
   3.6838755630017953`*^9}, {3.683875596619796*^9, 3.6838755997709956`*^9}, {
   3.683883154459938*^9, 3.6838831559107385`*^9}, {3.6838834647439404`*^9, 
   3.68388346822274*^9}, 3.6838844948587465`*^9, {3.683884644312748*^9, 
   3.683884657962748*^9}, {3.6838850595535507`*^9, 3.6838850748883505`*^9}, {
   3.683885134589551*^9, 3.6838851736519513`*^9}, {3.683913171307146*^9, 
   3.683913207514256*^9}, {3.6839171824682417`*^9, 3.683917209618238*^9}, {
   3.6839469879120827`*^9, 3.683947021990581*^9}, 3.683966169680979*^9, {
   3.683966389814184*^9, 3.683966401444254*^9}, {3.6839672153149443`*^9, 
   3.683967216968305*^9}, 3.685383224383915*^9, 3.6865396500180807`*^9, {
   3.6865474433420763`*^9, 3.6865474810423117`*^9}, {3.717394967952651*^9, 
   3.717394985509343*^9}, {3.7173986023852253`*^9, 3.717398648986843*^9}, {
   3.717942206289736*^9, 3.717942206316785*^9}, {3.717951917348363*^9, 
   3.717951925065959*^9}, {3.718014808848607*^9, 3.718014817499877*^9}, 
   3.718015826329137*^9, 3.718016203248323*^9, {3.72111992623072*^9, 
   3.721119960300297*^9}, {3.73736723509699*^9, 3.737367235446919*^9}, {
   3.737374290135022*^9, 3.737374293045693*^9}, {3.738307378688077*^9, 
   3.738307378902713*^9}, {3.739209258179865*^9, 3.739209258423847*^9}, {
   3.739209866595991*^9, 3.739209867810956*^9}, {3.739251594550383*^9, 
   3.739251605678607*^9}, {3.7392653600532627`*^9, 3.739265382579735*^9}, {
   3.739502515356379*^9, 3.7395025380522223`*^9}, {3.739503650580277*^9, 
   3.7395036705144863`*^9}, {3.7395047560359173`*^9, 3.739504756236701*^9}, 
   3.743865412368585*^9, {3.7567124299510717`*^9, 3.756712434787074*^9}, {
   3.756712488661512*^9, 3.756712490705117*^9}, {3.780117202234179*^9, 
   3.780117203032283*^9}, {3.787914610923992*^9, 3.787914612145852*^9}},
 CellLabel->"In[715]:=",
 CellID->155589465,ExpressionUUID->"39266b0f-82d6-4d7e-b6f7-ce809101a7f1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ImportCrystalData", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"CrystalName_String", ",", "\[IndentingNewLine]", 
      RowBox[{"ChemicalFormula", ":", 
       RowBox[{"_", "?", "StringQ"}], ":", "\"\<\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Z", ":", 
       RowBox[{"_", "?", "IntegerQ"}], ":", "0"}], ",", "\[IndentingNewLine]", 
      RowBox[{"SpaceGroup_:", "1"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Wavelength", ":", 
       RowBox[{"_", "?", "NumericQ"}], ":", 
       RowBox[{"-", "1"}]}]}], "\[IndentingNewLine]", "}"}], ",", 
    "\[IndentingNewLine]", "GetLatticeParameters_List", ",", 
    "\[IndentingNewLine]", "AtomData_List", ",", "\[IndentingNewLine]", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "\[IndentingNewLine]", "]"}], ":=", 
  RowBox[{"Block", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "choice", ",", "name", ",", "sg", ",", "cell", ",", "\[Delta]", ",", 
      "fr", ",", "latticeItem", ",", "\[Lambda]", ",", "itemAtomData", ",", 
      "item", ",", 
      RowBox[{"dataFile", "=", 
       RowBox[{"OptionValue", "[", "\"\<DataFile\>\"", "]"}]}], ",", "temp"}],
      "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"--", "-"}], "*", " ", "Check", " ", "if", " ", "name", " ", 
      "already", " ", "exists", " ", "*", 
      RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"CrystalName", "===", "\"\<\>\""}], ",", "\[IndentingNewLine]", 
       RowBox[{"name", "=", 
        RowBox[{"\"\<ImportedCrystal_\>\"", "<>", 
         RowBox[{"DateString", "[", "\"\<ISODate\>\"", "]"}]}]}], ",", 
       RowBox[{"name", "=", "CrystalName"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"OptionValue", "[", "\"\<OverwriteWarning\>\"", "]"}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"KeyExistsQ", "[", 
           RowBox[{"$CrystalData", ",", "name"}], "]"}], ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{"choice", "=", 
           RowBox[{"ChoiceDialog", "[", 
            RowBox[{
            "\"\<\[LeftGuillemet]\>\"", "<>", "name", "<>", 
             "\[IndentingNewLine]", 
             "\"\<\[RightGuillemet] already exists in $CrystalData.\\nDo you \
want to overwrite this entry?\>\""}], "]"}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"!", "choice"}], ",", 
          RowBox[{"Return", "[", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", 
      "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", 
        RowBox[{"-", " ", "Space"}]}], " ", "Group", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"sg", "=", 
      RowBox[{"InputCheck", "[", 
       RowBox[{"\"\<GetPointSpaceGroupCrystal\>\"", ",", "SpaceGroup"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"sg", "=", 
      RowBox[{"ToStandardSetting", "@", "sg"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Lattice", " ", "parameters", " ", "*", 
       
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"!", 
         RowBox[{"AllTrue", "[", 
          RowBox[{"GetLatticeParameters", ",", 
           RowBox[{
            RowBox[{"NumericQ", "[", "#", "]"}], "&"}]}], "]"}]}], "||", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Length", "@", "GetLatticeParameters"}], "\[NotEqual]", 
         "6"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"Message", "[", 
        RowBox[{"ImportCrystalData", "::", "latticeParameters"}], "]"}]}], 
      "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Optional", ":", " ", 
       RowBox[{"Round", " ", "angles"}]}], " ", "*)"}], "\[IndentingNewLine]",
      "\t", 
     RowBox[{"cell", "=", "GetLatticeParameters"}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"\[Delta]", "=", 
      RowBox[{"OptionValue", "[", "\"\<RoundAnglesThreshold\>\"", "]"}]}], 
     ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", "\t", 
      RowBox[{
       RowBox[{
        RowBox[{"fr", "=", 
         RowBox[{"FractionalPart", "@", 
          RowBox[{
          "cell", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}], 
        ";", "\[IndentingNewLine]", "\t", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"fr", ">", "0.5"}], ",", 
          RowBox[{"fr", "=", 
           RowBox[{"1", "-", "fr"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        "\t", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"fr", "\[LessEqual]", "\[Delta]"}], ",", 
          RowBox[{
           RowBox[{
           "cell", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
           "=", 
           RowBox[{"Round", "@", 
            RowBox[{
            "cell", "\[LeftDoubleBracket]", "i", 
             "\[RightDoubleBracket]"}]}]}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"{", 
        RowBox[{"i", ",", "4", ",", "6"}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Optional", ":", " ", 
       RowBox[{"Use", " ", "units"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"OptionValue", "[", "\"\<Units\>\"", "]"}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"Do", "[", "\[IndentingNewLine]", "\t", 
        RowBox[{
         RowBox[{"Which", "[", "\[IndentingNewLine]", "\t", 
          RowBox[{
           RowBox[{"i", "\[LessEqual]", "3"}], ",", 
           RowBox[{
            RowBox[{
            "cell", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
            "=", 
            RowBox[{"Quantity", "[", 
             RowBox[{
              RowBox[{
              "cell", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
              ",", "\"\<Angstroms\>\""}], "]"}]}], ",", "\[IndentingNewLine]",
            "\t", 
           RowBox[{"i", "\[GreaterEqual]", "4"}], ",", 
           RowBox[{
            RowBox[{
            "cell", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
            "=", 
            RowBox[{"Quantity", "[", 
             RowBox[{
              RowBox[{
              "cell", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
              ",", "\"\<Degrees\>\""}], "]"}]}]}], "]"}], ",", 
         "\[IndentingNewLine]", "\t", 
         RowBox[{"{", 
          RowBox[{"i", ",", "6"}], "}"}]}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Prepare", " ", "association", " ", "entry"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"latticeItem", "=", 
      RowBox[{"Association", "@", "\[IndentingNewLine]", "\t", 
       RowBox[{"Thread", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<a\>\"", ",", "\"\<b\>\"", ",", "\"\<c\>\"", ",", 
           "\"\<\[Alpha]\>\"", ",", "\"\<\[Beta]\>\"", ",", 
           "\"\<\[Gamma]\>\""}], "}"}], "\[Rule]", "cell"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Wavelength", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Optional", ":", " ", 
       RowBox[{"Use", " ", "units"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"OptionValue", "[", "\"\<Units\>\"", "]"}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"\[Lambda]", "=", 
        RowBox[{"Quantity", "[", 
         RowBox[{"Wavelength", ",", "\"\<Angstroms\>\""}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"\[Lambda]", "=", "Wavelength"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Atom", " ", "data", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"AtomData", "===", 
        RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"itemAtomData", "=", 
        RowBox[{"{", 
         RowBox[{"<|", "|>"}], "}"}]}], ",", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"itemAtomData", "=", 
         RowBox[{"Table", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"DeleteMissing", "@", 
            RowBox[{"Part", "[", 
             RowBox[{
              RowBox[{
              "AtomData", "\[LeftDoubleBracket]", "i", 
               "\[RightDoubleBracket]"}], ",", 
              RowBox[{"{", "\[IndentingNewLine]", 
               RowBox[{
               "\"\<Element\>\"", ",", "\[IndentingNewLine]", 
                "\"\<OccupationFactor\>\"", ",", "\[IndentingNewLine]", 
                "\"\<SiteSymmetryMultiplicity\>\"", ",", 
                "\[IndentingNewLine]", "\"\<SiteSymmetryOrder\>\"", ",", 
                "\[IndentingNewLine]", "\"\<FractionalCoordinates\>\"", ",", 
                "\[IndentingNewLine]", "\"\<DisplacementParameters\>\"", ",", 
                "\[IndentingNewLine]", "\"\<Type\>\""}], "}"}]}], "]"}]}], 
           ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "AtomData"}]}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"KeyExistsQ", "[", 
             RowBox[{
              RowBox[{"First", "@", "itemAtomData"}], ",", "k"}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"itemAtomData", "=", 
             RowBox[{"MapAt", "[", "\[IndentingNewLine]", 
              RowBox[{"ToExpression", ",", "itemAtomData", ",", 
               RowBox[{"{", 
                RowBox[{"All", ",", 
                 RowBox[{"Key", "[", "k", "]"}]}], "}"}]}], "]"}]}]}], "]"}], 
          ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"{", 
           RowBox[{"k", ",", 
            RowBox[{"{", "\[IndentingNewLine]", "\t", 
             RowBox[{
             "\"\<OccupationFactor\>\"", ",", "\[IndentingNewLine]", "\t", 
              "\"\<SiteSymmetryMultiplicity\>\"", ",", "\[IndentingNewLine]", 
              "\t", "\"\<SiteSymmetryOrder\>\"", ",", "\[IndentingNewLine]", 
              "\t", "\"\<DisplacementParameters\>\""}], "}"}]}], "}"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"(*", " ", 
         RowBox[{"Checking", " ", "strings", " ", "in", " ", "coordinates"}], 
         " ", "*)"}], "\[IndentingNewLine]", "\t", 
        RowBox[{"Do", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"itemAtomData", "\[LeftDoubleBracket]", 
            RowBox[{"i", ",", "\"\<FractionalCoordinates\>\""}], 
            "\[RightDoubleBracket]"}], "=", 
           RowBox[{
            RowBox[{"itemAtomData", "\[LeftDoubleBracket]", 
             RowBox[{"i", ",", "\"\<FractionalCoordinates\>\""}], 
             "\[RightDoubleBracket]"}], "/.", 
            RowBox[{"x_String", "\[RuleDelayed]", 
             RowBox[{"ToExpression", "[", "x", "]"}]}]}]}], ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Length", "@", "itemAtomData"}]}], "}"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Preparing", " ", "item", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"item", "=", 
      RowBox[{"<|", "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"\"\<ChemicalFormula\>\"", "\[Rule]", "ChemicalFormula"}], 
        ",", "\[IndentingNewLine]", "\t", 
        RowBox[{"\"\<FormulaUnits\>\"", "\[Rule]", "Z"}], ",", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"\"\<SpaceGroup\>\"", "\[Rule]", "sg"}], ",", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"\"\<LatticeParameters\>\"", "\[Rule]", "latticeItem"}], ",", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"\"\<Wavelength\>\"", "\[Rule]", "\[Lambda]"}], ",", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"\"\<AtomData\>\"", "\[Rule]", "itemAtomData"}], ",", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"\"\<Notes\>\"", "\[Rule]", 
         RowBox[{"OptionValue", "[", "\"\<Notes\>\"", "]"}]}]}], 
       "\[IndentingNewLine]", "\t", "|>"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Delete", " ", "certain", " ", "keys"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"item", "[", "\"\<ChemicalFormula\>\"", "]"}], "===", 
        "\"\<\>\""}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"KeyDropFrom", "[", 
        RowBox[{"item", ",", "\"\<ChemicalFormula\>\""}], "]"}]}], "]"}], ";",
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"item", "[", "\"\<Notes\>\"", "]"}], "===", 
        RowBox[{"<|", "|>"}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"KeyDropFrom", "[", 
        RowBox[{"item", ",", "\"\<Notes\>\""}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"Positive", "@", 
         RowBox[{"item", "[", "\"\<Wavelength\>\"", "]"}]}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"KeyDropFrom", "[", 
        RowBox[{"item", ",", "\"\<Wavelength\>\""}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"Z", "===", "0"}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"KeyDropFrom", "[", 
        RowBox[{"item", ",", "\"\<FormulaUnits\>\""}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"If", " ", "all", " ", "occupation", " ", "factors"}], " ", 
        "=", " ", "1"}], ",", " ", 
       RowBox[{"delete", " ", "column"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"temp", "=", 
      RowBox[{"item", "\[LeftDoubleBracket]", 
       RowBox[{
       "\"\<AtomData\>\"", ",", "All", ",", "\"\<OccupationFactor\>\""}], 
       "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"AllTrue", "[", 
        RowBox[{
         RowBox[{"N", "@", "temp"}], ",", 
         RowBox[{
          RowBox[{"#", "\[Equal]", "1."}], "&"}]}], "]"}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"item", "\[LeftDoubleBracket]", 
         RowBox[{"\"\<AtomData\>\"", ",", "All"}], "\[RightDoubleBracket]"}], 
        "=", 
        RowBox[{"KeyDrop", "[", "\[IndentingNewLine]", "\t", 
         RowBox[{
          RowBox[{"item", "\[LeftDoubleBracket]", 
           RowBox[{"\"\<AtomData\>\"", ",", "All"}], 
           "\[RightDoubleBracket]"}], ",", "\"\<OccupationFactor\>\""}], 
         "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     "\t", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"If", " ", "all", " ", "displacement", " ", "parameters"}], 
        " ", "=", " ", "0"}], ",", " ", 
       RowBox[{"delete", " ", "column"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"temp", "=", 
      RowBox[{"item", "\[LeftDoubleBracket]", 
       RowBox[{
       "\"\<AtomData\>\"", ",", "All", ",", 
        "\"\<DisplacementParameters\>\""}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"AllTrue", "[", 
        RowBox[{
         RowBox[{"N", "@", "temp"}], ",", 
         RowBox[{
          RowBox[{"#", "\[Equal]", "0."}], "&"}]}], "]"}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"item", "\[LeftDoubleBracket]", 
         RowBox[{"\"\<AtomData\>\"", ",", "All"}], "\[RightDoubleBracket]"}], 
        "=", 
        RowBox[{"KeyDrop", "[", "\[IndentingNewLine]", "\t", 
         RowBox[{
          RowBox[{"item", "\[LeftDoubleBracket]", 
           RowBox[{"\"\<AtomData\>\"", ",", "All"}], 
           "\[RightDoubleBracket]"}], ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"{", 
           RowBox[{"\"\<DisplacementParameters\>\"", ",", "\"\<Type\>\""}], 
           "}"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"InputCheck", "[", 
      RowBox[{
      "\"\<Update$CrystalDataFile\>\"", ",", "dataFile", ",", "name", ",", 
       "item"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Display", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"KeyValueMap", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"#1", "\[Equal]", "\"\<AtomData\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"\"\<AtomData\>\"", "\[Rule]", 
           RowBox[{"Shallow", "[", 
            RowBox[{"#2", ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"#1", "\[Rule]", "#2"}]}], "]"}], "&"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"$CrystalData", "[", "name", "]"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{
  3.6678115931321983`*^9, 3.668106086235696*^9, {3.6681847250202436`*^9, 
   3.668184763578227*^9}, {3.668184859415769*^9, 3.6681848958952827`*^9}, {
   3.6681849656538982`*^9, 3.668184966557592*^9}, {3.668186746700986*^9, 
   3.668186748499941*^9}, {3.668186887833519*^9, 3.668186915465481*^9}, 
   3.668187179635866*^9, {3.6681873567029552`*^9, 3.668187367461336*^9}, {
   3.6681874297574987`*^9, 3.668187481442852*^9}, {3.6681875159231033`*^9, 
   3.66818751647386*^9}, {3.668187676247175*^9, 3.66818768715088*^9}, {
   3.668187807957081*^9, 3.668187810156796*^9}, 3.6681878677945766`*^9, {
   3.668192637722664*^9, 3.6681926384504833`*^9}, {3.668192682042522*^9, 
   3.668192705296905*^9}, {3.68166924518751*^9, 3.681669257401746*^9}, 
   3.681706490571958*^9, {3.681706560665007*^9, 3.681706560808091*^9}, {
   3.681706701190172*^9, 3.6817067089323483`*^9}, {3.681706888369705*^9, 
   3.68170694343121*^9}, {3.681707009919237*^9, 3.681707054877233*^9}, 
   3.681707094253208*^9, {3.681707298537107*^9, 3.681707301151917*^9}, {
   3.681710383837879*^9, 3.681710517243684*^9}, {3.681710549236743*^9, 
   3.681710591906762*^9}, 3.68171076139857*^9, 3.681710814623724*^9, {
   3.6817109067478313`*^9, 3.6817110010439167`*^9}, {3.681711080522023*^9, 
   3.6817111039844112`*^9}, 3.681711207870273*^9, {3.6817112607821617`*^9, 
   3.681711305188384*^9}, {3.681711445370324*^9, 3.681711513296112*^9}, {
   3.6817115774404993`*^9, 3.681711650636854*^9}, {3.68171500692944*^9, 
   3.681715026767819*^9}, {3.681715181501337*^9, 3.681715181739588*^9}, {
   3.681715678282447*^9, 3.6817156946895933`*^9}, {3.681715923758252*^9, 
   3.6817159597723722`*^9}, {3.68171782238949*^9, 3.681717946865253*^9}, {
   3.681718348825375*^9, 3.681718349067914*^9}, {3.681718672178816*^9, 
   3.68171869694698*^9}, {3.681718727898713*^9, 3.681718795793612*^9}, {
   3.681719297392269*^9, 3.681719364987854*^9}, {3.681719424875423*^9, 
   3.681719476273019*^9}, {3.681719564217062*^9, 3.6817195753909283`*^9}, {
   3.681719696949328*^9, 3.681719703508996*^9}, {3.681720146779862*^9, 
   3.681720188282736*^9}, {3.681720357048739*^9, 3.681720404007724*^9}, {
   3.681720538565111*^9, 3.68172054257139*^9}, {3.681720713993903*^9, 
   3.681720714144103*^9}, {3.6817209858918037`*^9, 3.681721182870202*^9}, {
   3.681721229493627*^9, 3.6817212759562902`*^9}, {3.681721318685071*^9, 
   3.681721337315277*^9}, {3.681721411035223*^9, 3.681721483737514*^9}, {
   3.6817215519766006`*^9, 3.6817216024457273`*^9}, {3.681721640646819*^9, 
   3.681721648839014*^9}, {3.681721731125741*^9, 3.681721732668375*^9}, {
   3.681721789833881*^9, 3.681721806418096*^9}, {3.6817219185830507`*^9, 
   3.6817219344066553`*^9}, {3.681722442266707*^9, 3.6817224444361963`*^9}, {
   3.6817227023431807`*^9, 3.681722723774548*^9}, {3.6817228369801702`*^9, 
   3.681722870587195*^9}, 3.6817229070837173`*^9, {3.681723229228771*^9, 
   3.681723316371806*^9}, 3.681723352394136*^9, {3.681723491110834*^9, 
   3.6817234976219*^9}, {3.681723533046878*^9, 3.681723549182931*^9}, {
   3.681723690723069*^9, 3.681723710538261*^9}, {3.681723746168332*^9, 
   3.681723764431592*^9}, {3.6817239634608393`*^9, 3.681724024526379*^9}, {
   3.681724085449534*^9, 3.6817242176903954`*^9}, {3.6817242696057167`*^9, 
   3.681724295774458*^9}, 3.681724327237109*^9, {3.681724474011566*^9, 
   3.681724476993256*^9}, 3.681724828780448*^9, {3.6818125091048193`*^9, 
   3.6818125114155693`*^9}, {3.6818368257106333`*^9, 3.68183686908536*^9}, {
   3.681836932372287*^9, 3.6818369624101877`*^9}, 3.681837110530672*^9, {
   3.681837208341257*^9, 3.681837224397664*^9}, {3.6818373595787363`*^9, 
   3.6818374537754908`*^9}, {3.681837562221323*^9, 3.6818375769428663`*^9}, {
   3.681910108411652*^9, 3.681910109523672*^9}, {3.681914019772044*^9, 
   3.6819140660350637`*^9}, {3.681914192192573*^9, 3.681914197016157*^9}, {
   3.6819143018703423`*^9, 3.6819143025663137`*^9}, {3.681915201163806*^9, 
   3.681915204987383*^9}, {3.681915310962316*^9, 3.681915331517808*^9}, {
   3.681915405175632*^9, 3.6819154062625723`*^9}, {3.681915499756755*^9, 
   3.681915499981236*^9}, {3.682073936912169*^9, 3.6820739483816547`*^9}, {
   3.6820743306881447`*^9, 3.682074335621664*^9}, {3.682074407370736*^9, 
   3.682074414704529*^9}, {3.6820745276580267`*^9, 3.6820745282934628`*^9}, {
   3.6820746925334578`*^9, 3.682074694860141*^9}, {3.682074732983082*^9, 
   3.682074765426908*^9}, {3.6820749940801067`*^9, 3.682075014622149*^9}, {
   3.682075051439227*^9, 3.6820750769809523`*^9}, {3.682080559474235*^9, 
   3.682080571064229*^9}, {3.682081192052569*^9, 3.682081198850922*^9}, {
   3.6820825372652617`*^9, 3.682082587828931*^9}, {3.682083882451795*^9, 
   3.682083906361766*^9}, {3.682084834510179*^9, 3.682084909148551*^9}, {
   3.682085355867062*^9, 3.6820853570730352`*^9}, {3.682085387352064*^9, 
   3.682085468590469*^9}, {3.6820954917674417`*^9, 3.682095491933237*^9}, {
   3.6820955359818773`*^9, 3.6820955368911743`*^9}, {3.6820955810166683`*^9, 
   3.682095702639804*^9}, {3.6820958051670427`*^9, 3.682095833859441*^9}, {
   3.6820959556190987`*^9, 3.682095960147934*^9}, {3.682096089911231*^9, 
   3.682096098702631*^9}, {3.6820961601906853`*^9, 3.682096164437451*^9}, {
   3.6820962600043573`*^9, 3.682096261183568*^9}, 3.6820964289853363`*^9, {
   3.682101172972685*^9, 3.682101186499799*^9}, {3.682102756494223*^9, 
   3.6821027720587893`*^9}, {3.682102815514278*^9, 3.682102843539885*^9}, {
   3.682102913889373*^9, 3.6821029181999683`*^9}, {3.682676951614175*^9, 
   3.682677014282371*^9}, {3.682743302412827*^9, 3.682743302984312*^9}, {
   3.68283882611203*^9, 3.682838829861582*^9}, {3.682839274791851*^9, 
   3.6828392951419153`*^9}, {3.6828394322211113`*^9, 3.682839485235921*^9}, {
   3.682839522176443*^9, 3.6828396062695837`*^9}, {3.6838754373593946`*^9, 
   3.6838754620697947`*^9}, {3.683875498464595*^9, 3.6838755411461954`*^9}, {
   3.6838755757937956`*^9, 3.6838756168373957`*^9}, {3.683877299628604*^9, 
   3.683877302748604*^9}, {3.683877625231806*^9, 3.683877735617407*^9}, {
   3.6838777700934067`*^9, 3.683877786629407*^9}, {3.683877824459407*^9, 
   3.683877883255808*^9}, {3.683877991675808*^9, 3.6838780441230087`*^9}, 
   3.6838781541810093`*^9, {3.6838785155238113`*^9, 3.6838785162258115`*^9}, {
   3.683883648168741*^9, 3.6838836561403418`*^9}, {3.6838836902887416`*^9, 
   3.683884028949144*^9}, {3.6838840713655443`*^9, 3.6838841621887445`*^9}, {
   3.683885078039551*^9, 3.6838850783983507`*^9}, {3.6840604337874165`*^9, 
   3.6840604341150165`*^9}, {3.684060677475018*^9, 3.6840607181130185`*^9}, {
   3.684064659458737*^9, 3.684064660824226*^9}, {3.684065013290655*^9, 
   3.6840651007018023`*^9}, 3.684091992501087*^9, {3.684092047571642*^9, 
   3.684092056517186*^9}, {3.684092093787097*^9, 3.684092109418057*^9}, {
   3.684092154139434*^9, 3.684092154840337*^9}, 3.684092215316921*^9, {
   3.684092293078665*^9, 3.684092296157777*^9}, {3.684092465243285*^9, 
   3.684092482747108*^9}, {3.684092743174653*^9, 3.684092745262229*^9}, {
   3.684122119660481*^9, 3.684122119802287*^9}, {3.684122540865759*^9, 
   3.684122543651548*^9}, {3.684122650380859*^9, 3.684122682496744*^9}, {
   3.684122718574717*^9, 3.6841227264847918`*^9}, {3.6841275607768307`*^9, 
   3.684127629729051*^9}, {3.684127891116247*^9, 3.684127892571128*^9}, {
   3.684483205713032*^9, 3.684483211262594*^9}, {3.684483790403738*^9, 
   3.684483795123879*^9}, {3.685285890213419*^9, 3.685285902411302*^9}, {
   3.6852859679097023`*^9, 3.685285972385825*^9}, {3.686539651186246*^9, 
   3.686539652401841*^9}, {3.6865488692683764`*^9, 3.686548871875628*^9}, {
   3.686549678453073*^9, 3.686549812821848*^9}, {3.6865498480750237`*^9, 
   3.6865498666827497`*^9}, {3.686549900073018*^9, 3.686549936893228*^9}, {
   3.6865499930279913`*^9, 3.686550060430197*^9}, {3.686550112225142*^9, 
   3.6865501356261597`*^9}, {3.6865501835287313`*^9, 3.686550267746396*^9}, {
   3.686550530272417*^9, 3.686550577558567*^9}, {3.686636392798913*^9, 
   3.686636458512154*^9}, {3.686636825377118*^9, 3.6866368257130737`*^9}, {
   3.690876148810753*^9, 3.690876180435878*^9}, {3.690888859078938*^9, 
   3.690888904056428*^9}, {3.6908895958854427`*^9, 3.690889596291432*^9}, {
   3.690889701343381*^9, 3.690889744880413*^9}, {3.690889780680581*^9, 
   3.690889820427496*^9}, {3.690890032406951*^9, 3.690890053995669*^9}, {
   3.690890444323526*^9, 3.6908904470700083`*^9}, {3.690890814997316*^9, 
   3.690890815831262*^9}, {3.690891007984201*^9, 3.690891031395673*^9}, {
   3.690891133552911*^9, 3.690891137120051*^9}, {3.690891176841043*^9, 
   3.6908911898237658`*^9}, {3.690891626381727*^9, 3.690891627189205*^9}, {
   3.690891712786038*^9, 3.690891713655484*^9}, {3.690891758219355*^9, 
   3.6908917585035152`*^9}, {3.690891852466124*^9, 3.690891855496437*^9}, {
   3.690892074279029*^9, 3.690892122266016*^9}, {3.690892157891358*^9, 
   3.690892159507001*^9}, {3.690892460974785*^9, 3.690892488819858*^9}, {
   3.690892643174568*^9, 3.6908926561424713`*^9}, {3.690892695920432*^9, 
   3.690892761646077*^9}, {3.705381561172036*^9, 3.705381563232807*^9}, {
   3.705381730133943*^9, 3.705381731010749*^9}, {3.705381761485899*^9, 
   3.7053817625813923`*^9}, {3.705381961091528*^9, 3.705381961739848*^9}, {
   3.705382886776128*^9, 3.705382910719694*^9}, {3.70538298540779*^9, 
   3.705382999790876*^9}, {3.705383200859761*^9, 3.705383201317832*^9}, {
   3.712039804004003*^9, 3.712039837410914*^9}, {3.712039888007128*^9, 
   3.712039976950371*^9}, {3.712040039595913*^9, 3.7120400428353252`*^9}, {
   3.71437291775845*^9, 3.714372920591165*^9}, {3.714373013115429*^9, 
   3.714373111168646*^9}, {3.714381611549461*^9, 3.71438168878443*^9}, {
   3.71438182004793*^9, 3.7143818226490498`*^9}, {3.714913981660367*^9, 
   3.714913993459426*^9}, {3.716819647322055*^9, 3.716819649144059*^9}, {
   3.716819738528111*^9, 3.716819741943658*^9}, {3.716819893292836*^9, 
   3.716819911259316*^9}, {3.716820049225861*^9, 3.716820110288262*^9}, {
   3.716820157664789*^9, 3.7168201582227993`*^9}, 3.716820271941564*^9, {
   3.7173994935959806`*^9, 3.717399535062772*^9}, 3.717740896966391*^9, {
   3.7179422063447857`*^9, 3.717942206357648*^9}, {3.7180130748350773`*^9, 
   3.7180130910990973`*^9}, {3.7180148242351923`*^9, 
   3.7180148311457357`*^9}, {3.718014898102281*^9, 3.718014898233629*^9}, {
   3.718015243930171*^9, 3.718015282584255*^9}, 3.718015315920961*^9, {
   3.7180156461055937`*^9, 3.718015755165243*^9}, {3.7180157967662783`*^9, 
   3.718015829733087*^9}, {3.7180158831958733`*^9, 3.7180160053342524`*^9}, {
   3.718016239795858*^9, 3.718016245499477*^9}, {3.71844534122999*^9, 
   3.718445351214416*^9}, {3.718445534462845*^9, 3.718445544887985*^9}, {
   3.726464354380864*^9, 3.726464357211823*^9}, {3.7264644108631153`*^9, 
   3.72646442689914*^9}, {3.726470847882986*^9, 3.726470865128058*^9}, {
   3.7264709109909163`*^9, 3.72647099076378*^9}, {3.726471087701652*^9, 
   3.726471104816641*^9}, {3.726474185878257*^9, 3.726474189604694*^9}, 
   3.726474223211694*^9, {3.7264744761979103`*^9, 3.726474483011284*^9}, {
   3.7264745194447823`*^9, 3.72647451967942*^9}, {3.726904493491934*^9, 
   3.726904531469075*^9}, {3.726905529651862*^9, 3.726905645699419*^9}, 
   3.727164723614419*^9, {3.7271647636423893`*^9, 3.727164798426024*^9}, {
   3.727164958421529*^9, 3.727164988222075*^9}, {3.727165042310004*^9, 
   3.7271650488753567`*^9}, {3.727679329728222*^9, 3.727679384869399*^9}, 
   3.72767941926967*^9, {3.7301441859807997`*^9, 3.7301441909532824`*^9}, {
   3.7305437419606*^9, 3.7305437430825768`*^9}, {3.730544137286261*^9, 
   3.730544137542388*^9}, {3.730544272563367*^9, 3.73054429091084*^9}, {
   3.734086643112812*^9, 3.734086650280046*^9}, {3.734086721542708*^9, 
   3.734086741504282*^9}, {3.734086996113962*^9, 3.7340869980551243`*^9}, 
   3.73408730066591*^9, {3.734087391864551*^9, 3.734087401446116*^9}, {
   3.734087436367076*^9, 3.734087460116948*^9}, {3.7340876420579853`*^9, 
   3.7340876423708982`*^9}, {3.734087932780149*^9, 3.734088059863969*^9}, {
   3.734088377921844*^9, 3.7340884199114656`*^9}, {3.734088509745023*^9, 
   3.734088518509304*^9}, {3.7340885760800037`*^9, 3.734088595190104*^9}, 
   3.7340888079526997`*^9, {3.734088951665037*^9, 3.734089018509555*^9}, {
   3.734092222193697*^9, 3.73409229550977*^9}, {3.734092364593038*^9, 
   3.73409237038064*^9}, {3.734097452322815*^9, 3.7340974727356043`*^9}, {
   3.7340976191960287`*^9, 3.734097652441235*^9}, {3.73410054000917*^9, 
   3.734100541951701*^9}, {3.735030627906562*^9, 3.7350306391261253`*^9}, {
   3.7350306883908873`*^9, 3.7350307008109818`*^9}, {3.7350309342608757`*^9, 
   3.735030941583761*^9}, {3.7350311561314373`*^9, 3.73503121656846*^9}, {
   3.735031371649341*^9, 3.73503137200354*^9}, {3.7350314486109877`*^9, 
   3.735031497236422*^9}, {3.735031527623269*^9, 3.735031536838859*^9}, {
   3.737968498976862*^9, 3.737968499224889*^9}, {3.758529550852418*^9, 
   3.758529723846592*^9}, {3.759519421858753*^9, 3.759519422273179*^9}, 
   3.762793093487715*^9, {3.767429226854641*^9, 3.767429227023518*^9}, {
   3.767429361529838*^9, 3.767429372416533*^9}, {3.7741631032659397`*^9, 
   3.774163106115437*^9}, {3.7801172241973057`*^9, 3.780117258802784*^9}, {
   3.780117937312771*^9, 3.7801179398540087`*^9}, {3.7869684882693243`*^9, 
   3.786968489587207*^9}, {3.7874610484996147`*^9, 3.787461049168895*^9}, 
   3.7879189518581457`*^9, {3.787919893314981*^9, 3.787919899779025*^9}, 
   3.787920620467207*^9, {3.787920703361155*^9, 3.787920714504895*^9}, {
   3.787920784495517*^9, 3.787920869957136*^9}, {3.7879209123963003`*^9, 
   3.787920926755817*^9}, {3.787921181054405*^9, 3.7879212051335506`*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[999]:=",
 CellID->1504539856,ExpressionUUID->"fdcd7cf3-0999-47cf-b982-9d6616055e2a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ImportCrystalData", "[", 
   RowBox[{"ciffile_", ",", 
    RowBox[{"Name_String:", "\"\<\>\""}], ",", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"A", ".", " ", "Input"}], " ", "check", " ", "and", " ", 
       "setup"}], " ", "*)"}], 
     RowBox[{
     "name", ",", "import", ",", "sub", ",", "endstring", ",", "enc", ",", 
      "left", ",", "mid", ",", "right", ",", "\[IndentingNewLine]", 
      RowBox[{"modulationQ", "=", "False"}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"B", ".", " ", "Lattice"}], " ", "parameters"}], " ", "*)"}], 
      "cell", ",", "x", ",", "X", ",", "multipleQ", ",", "parts", ",", 
      "coordCount", ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"C", ".", " ", "Atom"}], " ", "data"}], " ", "*)"}], 
      "atomdata", ",", "atomtags", ",", "c", ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"D", ".", " ", "Anisotropic"}], " ", "displacement", " ", 
        "parameters", " ", 
        RowBox[{"(", "ADPs", ")"}]}], " ", "*)"}], "anisodata", ",", 
      "anisoOrder", ",", "P", ",", "atomoverview", ",", "tags", ",", "labels",
       ",", "disp", ",", "item", ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"E", ".", " ", "Misc"}], " ", "data", " ", "labels", " ", 
        RowBox[{"(", 
         RowBox[{"wavelength", ",", " ", 
          RowBox[{"formula", " ", "units"}]}], ")"}]}], " ", "*)"}], 
      "\[Lambda]", ",", "Z", ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"F", ".", " ", "Chemical"}], " ", "formula"}], " ", "*)"}], 
      "formula", ",", "chemicalformula", ",", "L", ",", "l", ",", "r", ",", 
      "checkParentheses", ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"G", ".", " ", "Space"}], " ", "group"}], " ", "*)"}], 
      "sgTags", ",", "sgData", ",", "sg", ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"H", ".", " ", "Adding"}], " ", "item", " ", "to", " ", 
        "dataset"}], " ", "*)"}], "options", ",", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", "Misc", " ", "*)"}], "temp"}], "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"--", "-"}], "*", " ", 
      RowBox[{"A", ".", " ", "Input"}], " ", "check", " ", "and", " ", 
      "setup", " ", "*", 
      RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"Name", "\[Equal]", "\"\<\>\""}], ",", 
       RowBox[{"name", "=", 
        RowBox[{"FileBaseName", "[", "ciffile", "]"}]}], ",", 
       RowBox[{"name", "=", "Name"}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"A", 
       RowBox[{".1", ".", " ", "Check"}], " ", "file"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"import", "=", 
      RowBox[{"Check", "[", 
       RowBox[{
        RowBox[{"Import", "[", 
         RowBox[{"ciffile", ",", "\"\<String\>\""}], "]"}], ",", 
        RowBox[{"Abort", "[", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"sub", "=", 
      RowBox[{"OptionValue", "[", "\"\<ExtractSubdata\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"IntegerQ", "[", "#", "]"}], "&&", 
            RowBox[{"Positive", "[", "#", "]"}]}], "&"}], "@", "sub"}], 
         ")"}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"ImportCrystalData", "::", "subdataInteger"}], "]"}], ";", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"A", 
       RowBox[{".2", ".", " ", "Auxiliary"}], " ", "variables"}], " ", "*)"}],
      "\[IndentingNewLine]", 
     RowBox[{"endstring", "=", 
      RowBox[{"{", 
       RowBox[{
       "\"\<loop_\>\"", ",", "\"\<\\n\\n\>\"", ",", "\"\<;\>\"", ",", 
        "\"\<#\>\"", ",", "EndOfString"}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"enc", "=", 
      RowBox[{"{", 
       RowBox[{"\"\<'\>\"", ",", "\"\<\\\"\>\""}], "}"}]}], ";", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"annotation", "/", "enclosing"}], " ", "marks"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     StyleBox[
      RowBox[{
       RowBox[{"{", 
        RowBox[{"left", ",", "mid", ",", "right"}], "}"}], "=", 
       RowBox[{"{", 
        RowBox[{
        "\"\<\\!\\(\\*SubscriptBox[\\(\>\"", ",", "\"\<\\), \\(\>\"", ",", 
         "\"\<\\)]\\)\>\""}], "}"}]}],
      ShowSpecialCharacters->False,
      ShowStringCharacters->True,
      NumberMarks->True], 
     StyleBox[";",
      ShowSpecialCharacters->False,
      ShowStringCharacters->True,
      NumberMarks->True], "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"A", 
       RowBox[{".3", ".", " ", "Check"}], " ", "radiation", " ", "type"}], 
      " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"StringCases", "[", 
       RowBox[{"import", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Shortest", "[", 
          RowBox[{
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
            "\"\<_diffrn_radiation_type\>\"", ",", 
             "\"\<_diffrn_radiation_probe\>\""}], "}"}], 
           "\[IndentingNewLine]", "~~", "Whitespace", "~~", 
           RowBox[{"{", 
            RowBox[{"\"\<\>\"", ",", "enc"}], "}"}], "~~", 
           RowBox[{"t", ":", 
            RowBox[{"LetterCharacter", ".."}]}], "~~", "\"\<\\n\>\""}], "]"}],
          "\[RuleDelayed]", "t"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"MemberQ", "[", 
          RowBox[{"temp", ",", "#"}], "]"}], ",", 
         RowBox[{"Message", "[", 
          RowBox[{
           RowBox[{"ImportCrystalData", "::", "notMaXrd"}], ",", "#"}], 
          "]"}]}], "]"}], "\[IndentingNewLine]", "&"}], "/@", 
      RowBox[{"{", 
       RowBox[{"\"\<neutron\>\"", ",", "\"\<electron\>\""}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"A", 
       RowBox[{".4", ".", " ", "Check"}], " ", "for", " ", "modulation"}], 
      " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"StringContainsQ", "[", 
         RowBox[{"import", ",", "\"\<_space_group_ssg_name\>\""}], "]"}], ",",
         "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"modulationQ", "=", "True"}], ";", "\[IndentingNewLine]", 
         RowBox[{"Message", "[", 
          RowBox[{"ImportCrystalData", "::", "modulation"}], "]"}]}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", 
       RowBox[{"B", ".", " ", "Lattice"}], " ", "parameters", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"B", 
       RowBox[{".1", ".", " ", "Extracting"}], " ", "lattice", " ", 
       "parameters"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"cell", "=", 
      RowBox[{"StringCases", "[", 
       RowBox[{"import", ",", 
        RowBox[{
         RowBox[{"Shortest", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"x", ":", 
            RowBox[{"(", 
             RowBox[{"\"\<_cell_\>\"", "~~", 
              RowBox[{"{", 
               RowBox[{"\"\<length\>\"", ",", "\"\<angle\>\""}], "}"}], "~~", 
              "__", "~~", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"DigitCharacter", ",", "\"\<.\>\""}], "}"}], ".."}]}],
              ")"}]}], "~~", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"\"\<(\>\"", ",", "Whitespace"}], "}"}]}], "]"}], 
         "\[RuleDelayed]", 
         RowBox[{"ToLowerCase", "@", "x"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"IgnoreCase", "\[Rule]", "True"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", "Check", " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"cell", "\[Equal]", 
        RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"ImportCrystalData", "::", "latticeParameters"}], "]"}], ";",
         "\[IndentingNewLine]", "\t", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"B", 
       RowBox[{".2", ".", " ", "Check"}], " ", "for", " ", "multiplue", " ", 
       "structures"}], " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"cell", "=", 
      RowBox[{"StringSplit", "[", 
       RowBox[{"cell", ",", "Whitespace"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"Which", "[", "\[IndentingNewLine]", "\t", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "@", "cell"}], ">", "6"}], ",", 
       "\[IndentingNewLine]", "\t\t", 
       RowBox[{
        RowBox[{"multipleQ", "=", "True"}], ";", 
        RowBox[{"parts", "=", 
         RowBox[{
          RowBox[{"Length", "[", "cell", "]"}], "/", "6"}]}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"Length", "@", "cell"}], "\[Equal]", "6"}], ",", 
       "\[IndentingNewLine]", "\t\t", 
       RowBox[{
        RowBox[{"multipleQ", "=", "False"}], ";", 
        RowBox[{"parts", "=", "1"}]}], ",", "\[IndentingNewLine]", "\t", 
       "True", ",", "\[IndentingNewLine]", "\t\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"ImportCrystalData", "::", "cell"}], "]"}], ";", 
        "\[IndentingNewLine]", "\t\t", 
        RowBox[{"Return", "@", "cell"}]}]}], "\[IndentingNewLine]", "\t", 
      "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Correct", " ", "ordering"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"cell", "=", 
      RowBox[{"Partition", "[", 
       RowBox[{"cell", ",", "\[IndentingNewLine]", "\t", 
        RowBox[{
         RowBox[{"Length", "@", "cell"}], "/", 
         RowBox[{"Quotient", "[", 
          RowBox[{
           RowBox[{"Length", "@", "cell"}], ",", "6"}], "]"}]}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", "\t", 
      RowBox[{
       RowBox[{
        RowBox[{"X", "=", 
         RowBox[{
         "cell", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], 
        ";", "\[IndentingNewLine]", "\t", 
        RowBox[{"x", "=", 
         RowBox[{"X", "\[LeftDoubleBracket]", 
          RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"P", "=", 
         RowBox[{"FindPermutation", "[", 
          RowBox[{"x", ",", 
           RowBox[{"{", "\[IndentingNewLine]", "\t", 
            RowBox[{
            "\"\<_cell_length_a\>\"", ",", "\[IndentingNewLine]", "\t", 
             "\"\<_cell_length_b\>\"", ",", "\[IndentingNewLine]", "\t", 
             "\"\<_cell_length_c\>\"", ",", "\[IndentingNewLine]", "\t", 
             "\"\<_cell_angle_alpha\>\"", ",", "\[IndentingNewLine]", "\t", 
             "\"\<_cell_angle_beta\>\"", ",", "\[IndentingNewLine]", "\t", 
             "\"\<_cell_angle_gamma\>\""}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{
         RowBox[{
         "cell", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], "=", 
         
         RowBox[{"Permute", "[", 
          RowBox[{"X", ",", "P"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
       "\t", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "@", "cell"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"cell", "=", 
      RowBox[{"cell", "\[LeftDoubleBracket]", 
       RowBox[{"All", ",", "All", ",", "2"}], "\[RightDoubleBracket]"}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"B", 
       RowBox[{".3", ".", " ", "Check"}], " ", "subdata", " ", "extraction"}],
       " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Verify", " ", "with", " ", "fractional", " ", "coordinates"}], 
      " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"coordCount", "=", 
      RowBox[{"StringCount", "[", 
       RowBox[{"import", ",", "\"\<_atom_site_fract_x\>\""}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"coordCount", "===", "0"}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"ImportCrystalData", "::", "atomData"}], "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\t", 
     "\[IndentingNewLine]", "\t", "\[IndentingNewLine]", "\t", 
     RowBox[{"parts", "=", 
      RowBox[{"Min", "[", 
       RowBox[{"parts", ",", "coordCount"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"multipleQ", "&&", 
          RowBox[{"sub", ">", "parts"}]}], ")"}], "||", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"!", "multipleQ"}], "&&", 
          RowBox[{"sub", "\[NotEqual]", "1"}]}], ")"}]}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"ImportCrystalData", "::", "subdataLength"}], ",", 
          "parts"}], "]"}], ";", "\[IndentingNewLine]", "\t", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"IntegerQ", "[", "parts", "]"}]}], ",", "\[IndentingNewLine]",
        "\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"ImportCrystalData", "::", "subdataInteger"}], "]"}], ";", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"Return", "@", "parts"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Extract", " ", "subdata"}], " ", "*)"}], "\[IndentingNewLine]",
      "\t", 
     RowBox[{"cell", "=", 
      RowBox[{"ToExpression", "@", 
       RowBox[{
       "cell", "\[LeftDoubleBracket]", "sub", "\[RightDoubleBracket]"}]}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", 
       RowBox[{"C", ".", " ", "Atom"}], " ", "data", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Label", "[", "\"\<AtomData\>\"", "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"C", 
       RowBox[{".1", ".", " ", "Extracting"}], " ", "relevant", " ", "data", 
       " ", "block"}], " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Fractional", " ", "coordinates"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Occupation", " ", "factor"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Site", " ", "symmetry", " ", "multiplicity"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Extracting", " ", "_atom", "_site", " ", "loop"}], " ", "*)"}],
      "\[IndentingNewLine]", "\t", 
     RowBox[{"atomdata", "=", 
      RowBox[{"StringCases", "[", 
       RowBox[{"import", ",", 
        RowBox[{
         RowBox[{"Shortest", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"labels", ":", 
            RowBox[{"(", 
             RowBox[{
             "Whitespace", "~~", "\"\<_atom_site_\>\"", "~~", "__", "~~", 
              "\"\<\\n\>\""}], ")"}]}], "~~", 
           RowBox[{"data", ":", 
            RowBox[{"(", 
             RowBox[{"StartOfLine", "~~", 
              RowBox[{"Whitespace", "..."}], "~~", "LetterCharacter", "~~", 
              "__", "~~", "\"\<\\n\>\""}], ")"}]}], "\[IndentingNewLine]", "~~", 
           RowBox[{"{", 
            RowBox[{"endstring", ",", "\"\<_atom_site_aniso\>\"", ",", 
             RowBox[{"\"\<_\>\"", "~~", 
              RowBox[{"Except", "[", "\"\<a\>\"", "]"}]}]}], "}"}]}], "]"}], 
         "\[RuleDelayed]", 
         RowBox[{"{", 
          RowBox[{"labels", ",", "data"}], "}"}]}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t\t", 
     RowBox[{"(*", " ", 
      RowBox[{"No", " ", 
       RowBox[{"data", "?"}]}], " ", "*)"}], "\[IndentingNewLine]", "\t\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"atomdata", "\[Equal]", 
        RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", "\t\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"ImportCrystalData", "::", "atomData"}], "]"}], ";", 
        "\[IndentingNewLine]", "\t\t", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t\t", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Delete", " ", "cases", " ", "containing", " ", "anisotropy", " ", 
       "data"}], " ", "*)"}], "\[IndentingNewLine]", "\t\t", 
     RowBox[{"atomdata", "=", 
      RowBox[{"DeleteCases", "[", 
       RowBox[{"atomdata", ",", "\[IndentingNewLine]", "\t\t", 
        RowBox[{"x_", "/;", 
         RowBox[{"StringContainsQ", "[", 
          RowBox[{
           RowBox[{
           "x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", 
           "\"\<aniso\>\""}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"Specify", " ", "sub"}], "-", "data"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"atomdata", "=", 
      RowBox[{
      "atomdata", "\[LeftDoubleBracket]", "sub", "\[RightDoubleBracket]"}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"C", 
       RowBox[{".2", ".", " ", "Organising"}], " ", "data"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"atomtags", "=", 
      RowBox[{"Flatten", "@", 
       RowBox[{"StringCases", "[", 
        RowBox[{
         RowBox[{
         "atomdata", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<_atom_site_\>\"", "~~", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"WordCharacter", ",", "\"\<_\>\""}], "}"}], ".."}]}]}], 
        "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"atomdata", "=", 
      RowBox[{"StringDelete", "[", 
       RowBox[{
        RowBox[{
        "atomdata", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
        ",", 
        RowBox[{"\"\<(\>\"", "~~", 
         RowBox[{"DigitCharacter", ".."}], "~~", "\"\<)\>\""}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"atomdata", "=", 
      RowBox[{"Partition", "[", 
       RowBox[{
        RowBox[{"StringSplit", "@", "atomdata"}], ",", 
        RowBox[{"Length", "@", "atomtags"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"atomdata", "=", 
      RowBox[{"DeleteCases", "[", 
       RowBox[{"atomdata", ",", 
        RowBox[{"x_", "/;", 
         RowBox[{
          RowBox[{"Length", "[", "x", "]"}], "\[NotEqual]", 
          RowBox[{"Length", "[", "atomtags", "]"}]}]}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"atomdata", "=", 
      RowBox[{"Association", "@", 
       RowBox[{"Thread", "[", 
        RowBox[{"atomtags", "\[Rule]", 
         RowBox[{"Transpose", "@", "atomdata"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"C", ".3", " ", "Fixing", " ", "entries"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"If", " ", "'"}], "site_type", 
        RowBox[{"_symbol", "'"}], " ", "is", " ", "missing"}], ",", " ", 
       RowBox[{
        RowBox[{"copy", " ", "'"}], 
        RowBox[{"site_label", "'"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"KeyExistsQ", "[", 
         RowBox[{"atomdata", ",", "\"\<_atom_site_type_symbol\>\""}], "]"}]}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"atomdata", ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<_atom_site_type_symbol\>\"", "\[Rule]", 
          RowBox[{"atomdata", "[", "\"\<_atom_site_label\>\"", "]"}]}]}], 
        "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Process", " ", "and", " ", "check", " ", "elements"}], " ", 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"atomdata", "[", "\"\<_atom_site_type_symbol\>\"", "]"}]}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"InputCheck", "[", 
       RowBox[{"\"\<InterpretElement\>\"", ",", "temp"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Optional", ":", " ", 
       RowBox[{"Clear", " ", "any", " ", "ion", " ", "charges"}]}], " ", 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"OptionValue", "[", "\"\<IgnoreIonCharge\>\"", "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"temp", "=", 
        RowBox[{"StringDelete", "[", 
         RowBox[{"temp", ",", 
          RowBox[{"{", 
           RowBox[{"\"\<+\>\"", ",", "\"\<-\>\"", ",", "DigitCharacter"}], 
           "}"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"Update", " ", "'"}], 
       RowBox[{"atomdata", "'"}], " ", 
       RowBox[{"with", " ", "'"}], 
       RowBox[{"temp", "'"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"atomdata", "[", "\"\<_atom_site_type_symbol\>\"", "]"}], "=", 
      "temp"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", 
       RowBox[{"D", ".", " ", "Anisotropic"}], " ", "displacement", " ", 
       "parameters", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"D", 
        RowBox[{".1", ".", " ", "If"}], " ", "missing"}], ",", " ", 
       RowBox[{
       "use", " ", "default", " ", "values", " ", "for", " ", "ADP"}]}], " ", 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"L", "=", 
      RowBox[{"Length", "@", 
       RowBox[{"First", "@", "atomdata"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"KeyExistsQ", "[", 
         RowBox[{"atomdata", ",", "\"\<_atom_site_adp_type\>\""}], "]"}]}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"atomdata", ",", 
         RowBox[{"\"\<_atom_site_adp_type\>\"", "\[Rule]", 
          RowBox[{"ConstantArray", "[", 
           RowBox[{"\"\<Uiso\>\"", ",", "L"}], "]"}]}]}], "]"}]}], "]"}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"KeyExistsQ", "[", 
         RowBox[{"atomdata", ",", "\"\<_atom_site_U_iso_or_equiv\>\""}], 
         "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"AppendTo", "[", 
        RowBox[{"atomdata", ",", 
         RowBox[{"\"\<_atom_site_U_iso_or_equiv\>\"", "\[Rule]", 
          RowBox[{"ConstantArray", "[", 
           RowBox[{"0", ",", "L"}], "]"}]}]}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"D", 
       RowBox[{".2", ".", " ", "Anisotropic"}], " ", "displacement", " ", 
       "parameters"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"anisodata", "=", 
      RowBox[{"StringCases", "[", 
       RowBox[{"import", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Shortest", "[", 
          RowBox[{
          "\"\<loop_\>\"", "~~", "Whitespace", "~~", "\[IndentingNewLine]", 
           RowBox[{"x", ":", 
            RowBox[{"(", 
             RowBox[{"\"\<_atom_site_aniso\>\"", "~~", "__"}], ")"}]}], "~~", 
           "endstring"}], "]"}], "\[RuleDelayed]", "x"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", "Check", " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"anisodata", "===", 
        RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"Goto", "[", "\"\<OrganiseAtomdata\>\"", "]"}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"anisodata", "=", 
        RowBox[{
        "anisodata", "\[LeftDoubleBracket]", "sub", 
         "\[RightDoubleBracket]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"D", 
       RowBox[{".3", ".", " ", "Noting"}], " ", "the", " ", "order", " ", 
       RowBox[{"(", "permutation", ")"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"anisoOrder", "=", 
      RowBox[{"Flatten", "@", 
       RowBox[{"StringCases", "[", 
        RowBox[{"anisodata", ",", 
         RowBox[{"\"\<U_\>\"", "~~", 
          RowBox[{"DigitCharacter", ".."}]}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"P", "=", 
      RowBox[{"FindPermutation", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<U_11\>\"", ",", "\"\<U_22\>\"", ",", "\"\<U_33\>\"", ",", 
          "\"\<U_12\>\"", ",", "\"\<U_13\>\"", ",", "\"\<U_23\>\""}], "}"}], 
        ",", "anisoOrder"}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Nothing", " ", "there", " ", "to", " ", 
       RowBox[{"extract", "?"}]}], " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"temp", "=", 
      RowBox[{"Flatten", "@", 
       RowBox[{"StringCases", "[", 
        RowBox[{"anisodata", ",", "\[IndentingNewLine]", "\t", 
         RowBox[{
          RowBox[{"Shortest", "[", 
           RowBox[{
           "\"\<_atom_site_aniso_\>\"", "~~", "x__", "~~", "Whitespace"}], 
           "]"}], "\[RuleDelayed]", "x"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"c", "=", 
      RowBox[{"Flatten", "@", 
       RowBox[{"Quiet", "@", 
        RowBox[{"Position", "[", 
         RowBox[{"temp", ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"x_", "/;", 
           RowBox[{"StringContainsQ", "[", 
            RowBox[{"x", ",", "\"\<U\>\""}], "]"}]}]}], "]"}]}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"D", 
       RowBox[{".4", ".", " ", "Extracting"}], " ", "relevant", " ", "data", 
       " ", "and", " ", "trimming"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"anisodata", "=", 
      RowBox[{"StringCases", "[", 
       RowBox[{"anisodata", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"Shortest", "[", 
           RowBox[{
           "\"\<_atom_site_aniso\>\"", "~~", "__", "~~", "EndOfLine"}], "]"}],
           "~~", "Whitespace", "~~", 
          RowBox[{"(*", " ", 
           RowBox[{"Last", " ", "line"}], " ", "*)"}], "\[IndentingNewLine]", 
          
          RowBox[{"x", ":", 
           RowBox[{"(", 
            RowBox[{"WordCharacter", "~~", "__"}], ")"}]}]}], 
         "\[RuleDelayed]", "x"}]}], 
       RowBox[{"(*", " ", "Content", " ", "*)"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Check", " ", "if", " ", "there", " ", "is", " ", "any", " ", "actual", 
       " ", "data"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"anisodata", "===", 
        RowBox[{"{", "}"}]}], ",", 
       RowBox[{"Goto", "[", "\"\<OrganiseAtomdata\>\"", "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"anisodata", "=", 
      RowBox[{"StringSplit", "[", 
       RowBox[{
        RowBox[{"First", "@", "anisodata"}], ",", "Whitespace"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"anisodata", "=", 
      RowBox[{"StringReplace", "[", 
       RowBox[{"anisodata", ",", 
        RowBox[{
         RowBox[{"x__", "~~", "\"\<(\>\"", "~~", "__", "~~", "\"\<)\>\""}], 
         "\[RuleDelayed]", "x"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"anisodata", "=", 
      RowBox[{"Partition", "[", 
       RowBox[{"anisodata", ",", 
        RowBox[{"Length", "@", "temp"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Correcting", " ", "parameter", " ", "order"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"anisodata", "\[LeftDoubleBracket]", 
       RowBox[{"All", ",", "c"}], "\[RightDoubleBracket]"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Permute", "[", 
         RowBox[{"#", ",", "P"}], "]"}], "&"}], "/@", 
       RowBox[{"anisodata", "\[LeftDoubleBracket]", 
        RowBox[{"All", ",", "c"}], "\[RightDoubleBracket]"}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Associating", " ", "each", " ", "atom", " ", "with", " ", "values"}], 
      " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"anisodata", "=", 
      RowBox[{"Association", "[", "\[IndentingNewLine]", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"anisodata", "\[LeftDoubleBracket]", 
           RowBox[{"i", ",", "1"}], "\[RightDoubleBracket]"}], "\[Rule]", 
          RowBox[{"anisodata", "\[LeftDoubleBracket]", 
           RowBox[{"i", ",", "c"}], "\[RightDoubleBracket]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"Length", "@", "anisodata"}]}], "}"}]}], "]"}], "]"}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"D", 
       RowBox[{".5", ".", " ", "Organising"}], " ", "the", " ", "atom", " ", 
       "data"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Label", "[", "\"\<OrganiseAtomdata\>\"", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"atomoverview", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"tags", "=", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<_atom_site_occupancy\>\"", ",", "\[IndentingNewLine]", 
        "\"\<_atom_site_site_symmetry_multiplicity\>\"", ",", 
        "\[IndentingNewLine]", "\"\<_atom_site_site_symmetry_order\>\""}], 
       "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"labels", "=", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<OccupationFactor\>\"", ",", "\[IndentingNewLine]", 
        "\"\<SiteSymmetryMultiplicity\>\"", ",", "\[IndentingNewLine]", 
        "\"\<SiteSymmetryOrder\>\""}], "}"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"item", "=", 
         RowBox[{"<|", "|>"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"item", ",", "\[IndentingNewLine]", 
          RowBox[{"\"\<Element\>\"", "\[Rule]", 
           RowBox[{"atomdata", "\[LeftDoubleBracket]", 
            RowBox[{"\"\<_atom_site_type_symbol\>\"", ",", "i"}], 
            "\[RightDoubleBracket]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"KeyExistsQ", "[", 
             RowBox[{"atomdata", ",", 
              RowBox[{
              "tags", "\[LeftDoubleBracket]", "j", 
               "\[RightDoubleBracket]"}]}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"AppendTo", "[", 
             RowBox[{"item", ",", 
              RowBox[{
               RowBox[{
               "labels", "\[LeftDoubleBracket]", "j", 
                "\[RightDoubleBracket]"}], "\[Rule]", "\[IndentingNewLine]", 
               RowBox[{"atomdata", "\[LeftDoubleBracket]", 
                RowBox[{
                 RowBox[{
                 "tags", "\[LeftDoubleBracket]", "j", 
                  "\[RightDoubleBracket]"}], ",", "i"}], 
                "\[RightDoubleBracket]"}]}]}], "]"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"j", ",", 
            RowBox[{"Length", "@", "tags"}]}], "}"}]}], "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"item", ",", 
          RowBox[{
          "\"\<FractionalCoordinates\>\"", "\[Rule]", "\[IndentingNewLine]", 
           RowBox[{"Evaluate", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"atomdata", "\[LeftDoubleBracket]", 
               RowBox[{
                RowBox[{"\"\<_atom_site_fract_\>\"", "<>", "#"}], ",", "i"}], 
               "\[RightDoubleBracket]"}], "&"}], "/@", 
             RowBox[{"{", 
              RowBox[{"\"\<x\>\"", ",", "\"\<y\>\"", ",", "\"\<z\>\""}], 
              "}"}]}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"StringTake", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"atomdata", "\[LeftDoubleBracket]", 
              RowBox[{"\"\<_atom_site_adp_type\>\"", ",", "i"}], 
              "\[RightDoubleBracket]"}], ",", 
             RowBox[{"-", "3"}]}], "]"}], "===", "\"\<ani\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"disp", "=", 
           RowBox[{"Part", "[", 
            RowBox[{"anisodata", ",", 
             RowBox[{"atomdata", "\[LeftDoubleBracket]", 
              RowBox[{"\"\<_atom_site_label\>\"", ",", "i"}], 
              "\[RightDoubleBracket]"}]}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"disp", "=", 
           RowBox[{"atomdata", "\[LeftDoubleBracket]", 
            RowBox[{"\"\<_atom_site_U_iso_or_equiv\>\"", ",", "i"}], 
            "\[RightDoubleBracket]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"item", ",", 
          RowBox[{"\"\<DisplacementParameters\>\"", "\[Rule]", "disp"}]}], 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"item", ",", 
          RowBox[{"\"\<Type\>\"", "\[Rule]", 
           RowBox[{"atomdata", "\[LeftDoubleBracket]", 
            RowBox[{"\"\<_atom_site_adp_type\>\"", ",", "i"}], 
            "\[RightDoubleBracket]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        
        RowBox[{"AppendTo", "[", 
         RowBox[{"atomoverview", ",", "item"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "@", 
          RowBox[{"First", "@", "atomdata"}]}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", 
       RowBox[{"E", ".", " ", "Misc"}], " ", "data", " ", "labels", " ", "*", 
       
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"E", 
       RowBox[{".1", ".", " ", "Wavelength"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"\[Lambda]", "=", 
      RowBox[{"StringCases", "[", 
       RowBox[{"import", ",", 
        RowBox[{
         RowBox[{"Shortest", "[", 
          RowBox[{
          "\"\<_diffrn_radiation_wavelength\>\"", "~~", "\[IndentingNewLine]",
            "Whitespace", "~~", 
           RowBox[{"x", ":", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"DigitCharacter", ",", "\"\<.\>\""}], "}"}], ".."}]}], "~~",
            "Whitespace"}], "]"}], "\[RuleDelayed]", "x"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"\[Lambda]", "\[Equal]", 
        RowBox[{"{", "}"}]}], ",", 
       RowBox[{"\[Lambda]", "=", 
        RowBox[{"-", "1"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Length", "@", "\[Lambda]"}], ">", "1"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\[Lambda]", "=", 
          RowBox[{"ToExpression", "@", 
           RowBox[{
           "\[Lambda]", "\[LeftDoubleBracket]", "sub", 
            "\[RightDoubleBracket]"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"\[Lambda]", "=", 
          RowBox[{"ToExpression", "@", 
           RowBox[{"First", "@", "\[Lambda]"}]}]}]}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"E", 
       RowBox[{".2", ".", " ", "Forumla"}], " ", "units", " ", 
       RowBox[{"(", "Z", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Z", "=", 
      RowBox[{"StringCases", "[", 
       RowBox[{"import", ",", 
        RowBox[{
         RowBox[{"Shortest", "[", 
          RowBox[{
          "\"\<_cell_formula_units_Z\>\"", "~~", "\[IndentingNewLine]", 
           "Whitespace", "~~", 
           RowBox[{"z", ":", "DigitCharacter"}]}], "]"}], "\[RuleDelayed]", 
         "z"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"Z", "===", 
        RowBox[{"{", "}"}]}], ",", 
       RowBox[{"Z", "=", "0"}], ",", 
       RowBox[{"Z", "=", 
        RowBox[{"ToExpression", "@", 
         RowBox[{"First", "@", "Z"}]}]}]}], "]"}], ";", "\[IndentingNewLine]",
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", 
       RowBox[{"F", ".", " ", "Chemical"}], " ", "formula", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"F", 
       RowBox[{".1", ".", " ", "Extracting"}], " ", "formula"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"formula", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"StringCases", "[", 
         RowBox[{"import", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Shortest", "[", 
            RowBox[{"#", "~~", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"Whitespace", ",", "\"\<\\n\>\""}], "}"}], ".."}], "~~", 
             RowBox[{"{", 
              RowBox[{"\"\<'\>\"", ",", "\"\<\\\"\>\""}], "}"}], "~~", "f__", 
             "~~", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"\"\<'\>\"", ",", "\"\<\\\"\>\""}], "}"}], "~~", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"Whitespace", ",", "\"\<\\n\>\""}], "}"}], ".."}]}], 
            "]"}], "\[RuleDelayed]", "f"}]}], "]"}], "&"}], "/@", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Prioritised", " ", "order"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
        "\"\<_chemical_formula_iupac\>\"", ",", "\[IndentingNewLine]", 
         "\"\<_chemical_formula_structural\>\"", ",", "\[IndentingNewLine]", 
         "\"\<_chemical_formula_sum\>\""}], "}"}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"formula", "=", 
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{"Flatten", "@", "formula"}], ",", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"StringContainsQ", "[", 
           RowBox[{"#", ",", 
            RowBox[{"{", 
             RowBox[{"\"\<,\>\"", ",", "\"\<?\>\""}], "}"}]}], "]"}]}], 
         "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"formula", "=", 
      RowBox[{"StringDelete", "[", 
       RowBox[{"formula", ",", "\"\<\\r\>\""}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"F", 
       RowBox[{".2", ".", " ", "Check"}], " ", "for", " ", "simplest", " ", 
       "formula"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"Select", "[", 
       RowBox[{"formula", ",", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"StringContainsQ", "[", 
           RowBox[{"#", ",", "\"\<(\>\""}], "]"}]}], "&"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"temp", "=!=", 
        RowBox[{"{", "}"}]}], ",", 
       RowBox[{"formula", "=", 
        RowBox[{"{", 
         RowBox[{"First", "@", "temp"}], "}"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"F", 
       RowBox[{".3", ".", " ", "Misc"}], " ", "treatmeant", " ", "and", " ", 
       "possible", " ", "subdata", " ", "selection"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"formula", "===", 
         RowBox[{"{", "}"}]}], "||", 
        RowBox[{"formula", "===", 
         RowBox[{"{", "\"\<\>\"", "}"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"chemicalformula", "=", "\"\<\>\""}], ";", 
        RowBox[{"Goto", "[", "\"\<SpaceGroup\>\"", "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"formula", "=", 
      RowBox[{"{", 
       RowBox[{"StringDelete", "[", 
        RowBox[{
         RowBox[{"StringTrim", "@", 
          RowBox[{"First", "@", "formula"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<'\>\"", ",", "\"\<\\\"\>\""}], "}"}]}], "]"}], "}"}]}],
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"formula", "===", 
        RowBox[{"{", "\"\<\>\"", "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"chemicalformula", "=", "\"\<\>\""}], ";", 
        RowBox[{"Goto", "[", "\"\<SpaceGroup\>\"", "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"formula", "=", 
        RowBox[{"StringSplit", "@", "formula"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "@", "formula"}], ">", "1"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"formula", "=", 
        RowBox[{
        "formula", "\[LeftDoubleBracket]", "sub", "\[RightDoubleBracket]"}]}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"formula", "=", 
        RowBox[{"Flatten", "@", "formula"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"F", 
       RowBox[{".4", ".", " ", "Loop"}], " ", "for", " ", "formatting", " ", 
       "the", " ", "chemical", " ", "formula"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"Label", "[", "\"\<FormatFormula\>\"", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"AnyTrue", "[", 
        RowBox[{"formula", ",", 
         RowBox[{
          RowBox[{"StringContainsQ", "[", 
           RowBox[{"#", ",", 
            RowBox[{"{", 
             RowBox[{"\"\<(\>\"", ",", "\"\<)\>\""}], "}"}]}], "]"}], "&"}]}],
         "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"l", ",", "r"}], "}"}], "=", 
         RowBox[{"Flatten", "@", 
          RowBox[{"Position", "[", 
           RowBox[{
            RowBox[{"StringPosition", "[", "\[IndentingNewLine]", 
             RowBox[{"formula", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<(\>\"", ",", "\"\<)\>\""}], "}"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"{", 
              RowBox[{"_", ",", "_"}], "}"}], "}"}]}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{"checkParentheses", "=", "True"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"chemicalformula", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"temp", "=", 
         RowBox[{"Flatten", "@", 
          RowBox[{"StringCases", "[", 
           RowBox[{
            RowBox[{
            "formula", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}],
             ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"x", ":", 
               RowBox[{"LetterCharacter", ".."}]}], "~~", 
              "\[IndentingNewLine]", 
              RowBox[{"y", ":", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"{", 
                  RowBox[{"DigitCharacter", ",", "\"\<.\>\""}], "}"}], ")"}], 
                ".."}]}]}], "\[RuleDelayed]", 
             RowBox[{"{", 
              RowBox[{"x", ",", "y"}], "}"}]}]}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Which", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"temp", "\[Equal]", 
           RowBox[{"{", "}"}]}], ",", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"chemicalformula", ",", 
            RowBox[{
            "formula", "\[LeftDoubleBracket]", "i", 
             "\[RightDoubleBracket]"}]}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
           "temp", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
           "\[Equal]", "\"\<1\>\""}], ",", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"chemicalformula", ",", 
            RowBox[{
            "temp", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], 
           "]"}], ",", "\[IndentingNewLine]", "True", ",", 
          RowBox[{"AppendTo", "[", 
           RowBox[{"chemicalformula", ",", 
            RowBox[{"left", "<>", 
             RowBox[{
             "temp", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "<>",
              "mid", "<>", 
             RowBox[{
             "temp", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "<>",
              "right"}]}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "@", "formula"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"chemicalformula", "=", 
      RowBox[{"StringDelete", "[", 
       RowBox[{"chemicalformula", ",", 
        RowBox[{"{", 
         RowBox[{"\"\<(\>\"", ",", "\"\<)\>\""}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Adding", " ", "back", " ", "parentheses"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{"checkParentheses", ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{
         "chemicalformula", "\[LeftDoubleBracket]", "l", 
          "\[RightDoubleBracket]"}], "=", 
         RowBox[{"\"\<(\>\"", "<>", 
          RowBox[{
          "chemicalformula", "\[LeftDoubleBracket]", "l", 
           "\[RightDoubleBracket]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
         "chemicalformula", "\[LeftDoubleBracket]", "r", 
          "\[RightDoubleBracket]"}], "=", 
         RowBox[{
          RowBox[{
          "chemicalformula", "\[LeftDoubleBracket]", "r", 
           "\[RightDoubleBracket]"}], "<>", "\"\<)\>\""}]}]}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"chemicalformula", "=", 
      RowBox[{"StringJoin", "@", "chemicalformula"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", 
       RowBox[{"G", ".", " ", "Space"}], " ", "group", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Label", "[", "\"\<SpaceGroup\>\"", "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"G", 
       RowBox[{".1", ".", " ", "Prioritised"}], " ", "list", " ", "of", " ", 
       "data", " ", "labels"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"sgTags", "=", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
       "\"\<_space_group_name_Hall\>\"", ",", "\[IndentingNewLine]", 
        "\"\<_space_group_name_H-M\>\"", ",", "\[IndentingNewLine]", 
        "\"\<_space_group_IT_number\>\"", ",", "\[IndentingNewLine]", 
        "\"\<_symmetry_space_group_name_Hall\>\"", ",", 
        "\[IndentingNewLine]", "\"\<_symmetry_space_group_name_H-M\>\"", ",", 
        "\[IndentingNewLine]", "\"\<_symmetry_Int_Tables_number\>\""}], 
       "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"G", 
       RowBox[{".2", ".", " ", "Extract"}], " ", "space", " ", "group", " ", 
       "sections", " ", "from", " ", "imported", " ", "data"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"sgData", "=", 
      RowBox[{"StringCases", "[", 
       RowBox[{"import", ",", 
        RowBox[{"Shortest", "[", 
         RowBox[{"sgTags", "~~", "__", "~~", "\"\<loop_\>\""}], "]"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", "sgData", "]"}], ">", "0"}], ",", 
       RowBox[{"sgData", "=", 
        RowBox[{
        "sgData", "\[LeftDoubleBracket]", "sub", 
         "\[RightDoubleBracket]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"sgData", "=", 
      RowBox[{"StringTrim", "@", 
       RowBox[{"StringDelete", "[", 
        RowBox[{"sgData", ",", "\"\<loop_\>\""}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"G", 
       RowBox[{".3", ".", " ", "Make"}], " ", "association", " ", "of", " ", 
       "tags", " ", "and", " ", "corresponding", " ", "info"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"sgData", "=", 
      RowBox[{"StringCases", "[", 
       RowBox[{"sgData", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"t", ":", "sgTags"}], "~~", "Whitespace", "~~", 
          RowBox[{"sg", ":", 
           RowBox[{"Shortest", "[", 
            RowBox[{
             RowBox[{"Except", "[", "WhitespaceCharacter", "]"}], "~~", 
             "__"}], "]"}]}], "~~", 
          RowBox[{"{", 
           RowBox[{"\"\<\\n\>\"", ",", "EndOfString"}], "}"}]}], 
         "\[RuleDelayed]", 
         RowBox[{"{", 
          RowBox[{"t", "\[Rule]", "sg"}], "}"}]}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"sgData", "=", 
      RowBox[{"Association", "@", 
       RowBox[{"Flatten", "@", "sgData"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"sgData", "=", 
      RowBox[{"DeleteCases", "[", 
       RowBox[{"sgData", ",", "\"\<?\>\""}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"G", 
       RowBox[{".4", ".", " ", "Go"}], " ", "through", " ", "priority", " ", 
       "order", " ", "and", " ", "validate"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"sg", "=", 
         RowBox[{"sgData", "[", 
          RowBox[{
          "sgTags", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"sg", "=", 
         RowBox[{"Quiet", "@", 
          RowBox[{"InputCheck", "[", 
           RowBox[{"\"\<InterpretSpaceGroup\>\"", ",", "sg", ",", "False"}], 
           "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"sg", "=!=", "Null"}], ",", 
          RowBox[{"Break", "[", "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "@", "sgTags"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"G", 
       RowBox[{".5", ".", " ", "For"}], " ", "modulated", " ", "structures"}],
       " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"sg", "===", "Null"}], "&&", "modulationQ"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"sg", "=", 
         RowBox[{"StringCases", "[", 
          RowBox[{"import", ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
            "\"\<_space_group_ssg_name\>\"", "~~", "Whitespace", "~~", 
             "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"\"\<'\>\"", ",", "\"\<\\\"\>\""}], "}"}], "~~", "sg__",
              "~~", 
             RowBox[{"{", 
              RowBox[{"\"\<'\>\"", ",", "\"\<\\\"\>\""}], "}"}], "~~", 
             "\"\<\\n\>\""}], "\[RuleDelayed]", "sg"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"sg", "=", 
         RowBox[{"StringCases", "[", 
          RowBox[{"sg", ",", 
           RowBox[{
            RowBox[{"Shortest", "[", 
             RowBox[{"StartOfString", "~~", "___", "\[IndentingNewLine]", "~~", 
              RowBox[{"sg", ":", 
               RowBox[{"(", 
                RowBox[{"LetterCharacter", "~~", "__"}], ")"}]}], "~~", 
              "\"\<(\>\""}], "]"}], "\[RuleDelayed]", "sg"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"sg", "=!=", 
           RowBox[{"{", "}"}]}], ",", 
          RowBox[{"sg", "=", 
           RowBox[{"Quiet", "@", 
            RowBox[{"InputCheck", "[", 
             RowBox[{
             "\"\<InterpretSpaceGroup\>\"", ",", "\[IndentingNewLine]", 
              RowBox[{"First", "@", 
               RowBox[{"Flatten", "@", "sg"}]}], ",", "False"}], "]"}]}]}]}], 
         "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"G", 
        RowBox[{".6", ".", " ", "If"}], " ", "missing", " ", "space", " ", 
        "group"}], ",", " ", 
       RowBox[{"display", " ", "message", " ", "and", " ", 
        RowBox[{"use", " ", "'"}], 
        RowBox[{"P1", "'"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"sg", "===", "Null"}], ",", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"ImportCrystalData", "::", "SG"}], "]"}], ";", 
        RowBox[{"sg", "=", "\"\<P1\>\""}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", 
       RowBox[{"H", ".", " ", "Adding"}], " ", "item", " ", "to", " ", 
       "dataset", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"options", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"#", "\[Rule]", 
           RowBox[{"OptionValue", "[", "#", "]"}]}], ",", "String"}], "]"}], 
        "&"}], "/@", 
       RowBox[{"(", "\[IndentingNewLine]", 
        RowBox[{"First", "/@", 
         RowBox[{"Options", "@", "ImportCrystalData"}]}], ")"}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"ImportCrystalData", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "name", ",", "chemicalformula", ",", "Z", ",", "sg", ",", 
         "\[Lambda]"}], "}"}], ",", "\[IndentingNewLine]", "cell", ",", 
       "atomoverview", ",", "\[IndentingNewLine]", "options"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.681837686555131*^9, 3.681837715873535*^9}, {
   3.681877151035359*^9, 3.681877151857564*^9}, {3.681877348954164*^9, 
   3.681877351369781*^9}, {3.6819101014855537`*^9, 3.681910102580982*^9}, {
   3.681910388849527*^9, 3.681910408879343*^9}, {3.68191049699089*^9, 
   3.681910537526072*^9}, 3.681911688964922*^9, {3.681911786680073*^9, 
   3.68191179058315*^9}, {3.6819118723996363`*^9, 3.681911873844613*^9}, {
   3.6819140964123163`*^9, 3.681914157322269*^9}, {3.681914205795579*^9, 
   3.681914208330812*^9}, {3.6819143084716177`*^9, 3.681914309199279*^9}, {
   3.681915194701557*^9, 3.68191521259623*^9}, {3.681915428641061*^9, 
   3.6819154541920223`*^9}, {3.681915508982588*^9, 3.6819155187349586`*^9}, {
   3.6819168348799667`*^9, 3.681916852300927*^9}, {3.681916888900612*^9, 
   3.6819168922893877`*^9}, {3.6820739592699213`*^9, 3.682073996952688*^9}, {
   3.682077463877149*^9, 3.6820776052573*^9}, {3.6820776372594213`*^9, 
   3.682077686799657*^9}, {3.682082418603697*^9, 3.682082430746922*^9}, {
   3.682082519458561*^9, 3.682082521010309*^9}, {3.682082595976618*^9, 
   3.682082596294907*^9}, {3.6820837443110313`*^9, 3.682083747517606*^9}, {
   3.682085086096871*^9, 3.682085095360746*^9}, 3.682085308263221*^9, {
   3.682100925090796*^9, 3.682100925856657*^9}, {3.682101196995595*^9, 
   3.68210120054681*^9}, {3.682102829546782*^9, 3.682102838691023*^9}, {
   3.682102904632976*^9, 3.68210290614216*^9}, {3.6821029535021467`*^9, 
   3.68210296190212*^9}, {3.6821774013515873`*^9, 3.6821774370058517`*^9}, {
   3.682177563252334*^9, 3.6821775661249437`*^9}, {3.682177600506325*^9, 
   3.682177656459094*^9}, {3.682177729400577*^9, 3.6821778309729347`*^9}, {
   3.6821779750759077`*^9, 3.6821780129943647`*^9}, {3.682178072320471*^9, 
   3.682178073136857*^9}, {3.682214729418475*^9, 3.68221473007382*^9}, {
   3.682214797329495*^9, 3.682214821071869*^9}, {3.682677055762129*^9, 
   3.682677082149714*^9}, {3.682832420816259*^9, 3.682832449368558*^9}, {
   3.682832537779292*^9, 3.682832682693927*^9}, {3.682832735492477*^9, 
   3.682832824132668*^9}, {3.6828328598467293`*^9, 3.682833026767085*^9}, 
   3.682833162444942*^9, {3.682837210396799*^9, 3.6828372402788343`*^9}, 
   3.6828373947973213`*^9, {3.68283759506389*^9, 3.682837664986249*^9}, {
   3.682837709908091*^9, 3.682837753503565*^9}, {3.6828379970329027`*^9, 
   3.682838055525839*^9}, 3.682838232320035*^9, {3.682838429627843*^9, 
   3.682838434879648*^9}, {3.682838593168171*^9, 3.682838596462935*^9}, {
   3.682838879126762*^9, 3.6828390199199743`*^9}, {3.682839067845223*^9, 
   3.682839077317922*^9}, {3.682839121979623*^9, 3.682839223955677*^9}, {
   3.6828393367109547`*^9, 3.682839338923073*^9}, 3.682839501563301*^9, {
   3.6828417490831413`*^9, 3.682841811537655*^9}, {3.682842027045608*^9, 
   3.6828420299735603`*^9}, {3.682842258778105*^9, 3.682842282884631*^9}, {
   3.683459177108799*^9, 3.683459293968474*^9}, {3.6834593554150763`*^9, 
   3.683459366581719*^9}, {3.6834598133851852`*^9, 3.683459848895413*^9}, {
   3.683459997268997*^9, 3.6834600067561207`*^9}, {3.6835293248460393`*^9, 
   3.683529326321478*^9}, {3.6835294138321333`*^9, 3.6835295044250803`*^9}, {
   3.683537492652543*^9, 3.68353749405657*^9}, {3.683537541824689*^9, 
   3.6835375782357893`*^9}, {3.683537711555953*^9, 3.683537794377946*^9}, {
   3.683537977977876*^9, 3.683537990192911*^9}, {3.6835380313465023`*^9, 
   3.6835380750741434`*^9}, {3.683538285553391*^9, 3.6835383618232574`*^9}, {
   3.6835383921034403`*^9, 3.6835383922126417`*^9}, {3.6835385237387714`*^9, 
   3.683538644173087*^9}, {3.683538876743412*^9, 3.6835388845745115`*^9}, {
   3.683539294421953*^9, 3.683539430798027*^9}, 3.6835395063385925`*^9, {
   3.683539599016776*^9, 3.683539607581341*^9}, {3.683539676599069*^9, 
   3.6835396785491066`*^9}, {3.6835397231971655`*^9, 3.683539733087755*^9}, {
   3.683540253168607*^9, 3.6835404587493606`*^9}, {3.6835404930700207`*^9, 
   3.6835404965800877`*^9}, {3.683540560868924*^9, 3.6835405975523753`*^9}, {
   3.6835406619192133`*^9, 3.6835407044144306`*^9}, 3.683541270345587*^9, {
   3.68354135218476*^9, 3.6835414187044396`*^9}, {3.6835414565975685`*^9, 
   3.683541461776868*^9}, {3.683541917711236*^9, 3.6835419313458977`*^9}, 
   3.6835422222290916`*^9, {3.683572964384384*^9, 3.683572966999359*^9}, {
   3.6835730541015053`*^9, 3.683573069879159*^9}, {3.683573103784048*^9, 
   3.683573132220851*^9}, {3.68357317178211*^9, 3.683573226507544*^9}, {
   3.68357326053117*^9, 3.683573653411612*^9}, {3.683573688834921*^9, 
   3.6835737835140333`*^9}, {3.683573824322988*^9, 3.6835738252471046`*^9}, {
   3.683595424868795*^9, 3.683595451786187*^9}, {3.683595483733911*^9, 
   3.683595484340826*^9}, {3.6835955910574837`*^9, 3.6835956274016047`*^9}, {
   3.683595762457136*^9, 3.683595797136365*^9}, {3.683595846224218*^9, 
   3.683596001170824*^9}, {3.6835960422674*^9, 3.6835960891762123`*^9}, {
   3.6835962378875504`*^9, 3.6835962484282827`*^9}, {3.683596395857547*^9, 
   3.6835966353910303`*^9}, {3.683596898118559*^9, 3.683596901156117*^9}, {
   3.683596978213135*^9, 3.6835970018659067`*^9}, {3.683597032809555*^9, 
   3.6835970665686617`*^9}, {3.68359712696749*^9, 3.6835971278314257`*^9}, {
   3.683597176550775*^9, 3.68359717787001*^9}, {3.68359720886909*^9, 
   3.683597216597783*^9}, {3.6835972585402813`*^9, 3.6835972594512873`*^9}, {
   3.68359730637988*^9, 3.68359732121716*^9}, {3.683597369010441*^9, 
   3.6835974243989*^9}, {3.683597489283207*^9, 3.6835974932304993`*^9}, {
   3.6835975761879187`*^9, 3.683597578756028*^9}, {3.683597619308737*^9, 
   3.683597743987504*^9}, 3.683598235040094*^9, {3.683598338929348*^9, 
   3.683598413911125*^9}, {3.68359850546655*^9, 3.683598562786562*^9}, {
   3.683600135064497*^9, 3.6836001441563673`*^9}, 3.683600190405829*^9, {
   3.683600223266963*^9, 3.68360022351584*^9}, {3.683861653697109*^9, 
   3.6838617583709097`*^9}, {3.6838617890837097`*^9, 3.68386180051851*^9}, {
   3.6838720230872736`*^9, 3.6838721491664743`*^9}, {3.6838722337964754`*^9, 
   3.6838723530428762`*^9}, {3.683872389047676*^9, 3.683872467032077*^9}, {
   3.68387824945021*^9, 3.68387825924701*^9}, {3.6838782937698097`*^9, 
   3.6838783371378107`*^9}, {3.683878387057811*^9, 3.6838784373210115`*^9}, {
   3.683878666485012*^9, 3.6838787350002127`*^9}, {3.683879405377817*^9, 
   3.6838794279042177`*^9}, {3.6838794682146177`*^9, 3.683879531597418*^9}, {
   3.6838823679725337`*^9, 3.683882399500134*^9}, {3.683882440028934*^9, 
   3.683882440200534*^9}, {3.68388345639794*^9, 3.68388345794234*^9}, {
   3.683883545037141*^9, 3.683883563881941*^9}, {3.6838843089223456`*^9, 
   3.6838843101859455`*^9}, {3.6838846093375473`*^9, 
   3.6838846380259476`*^9}, {3.6838847150743484`*^9, 3.683884738474348*^9}, {
   3.683884796022749*^9, 3.683884836645149*^9}, {3.683884879498349*^9, 
   3.6838848901375494`*^9}, {3.68388495205395*^9, 3.68388501010155*^9}, {
   3.68388504030315*^9, 3.68388504270555*^9}, 3.6838850989123507`*^9, {
   3.683885198268751*^9, 3.683885218689152*^9}, {3.683912883065785*^9, 
   3.683912893756435*^9}, {3.683913100428589*^9, 3.6839131623230047`*^9}, {
   3.6839132253230247`*^9, 3.6839132395051737`*^9}, {3.683913537550117*^9, 
   3.68391355671695*^9}, {3.683914614791511*^9, 3.683914615884431*^9}, {
   3.683914757414419*^9, 3.683914851565317*^9}, {3.683914963356751*^9, 
   3.683915043562475*^9}, {3.6839150884529943`*^9, 3.68391514006312*^9}, {
   3.683915261541957*^9, 3.683915267605801*^9}, {3.683915370843563*^9, 
   3.683915373148366*^9}, {3.6839154629056883`*^9, 3.683915465520754*^9}, {
   3.683916066162204*^9, 3.683916209881385*^9}, {3.683916242403504*^9, 
   3.68391624273678*^9}, {3.68391631311016*^9, 3.683916315029543*^9}, {
   3.683916417398801*^9, 3.683916493270235*^9}, 3.683916540969326*^9, {
   3.6839165797143183`*^9, 3.683916597561346*^9}, {3.683916669848016*^9, 
   3.6839166878486032`*^9}, {3.683916731510866*^9, 3.6839167406461277`*^9}, {
   3.683916779525547*^9, 3.683916810603664*^9}, {3.683916856013338*^9, 
   3.683916880227283*^9}, {3.683916915864532*^9, 3.6839169239385757`*^9}, {
   3.683916981905188*^9, 3.683917053855734*^9}, 3.683917085238093*^9, {
   3.683917117406871*^9, 3.683917155940662*^9}, {3.683917254301112*^9, 
   3.683917322640829*^9}, {3.683917369048996*^9, 3.6839173725287027`*^9}, {
   3.683945926436631*^9, 3.683945951299859*^9}, {3.6839460310261507`*^9, 
   3.683946039878233*^9}, {3.683946754408388*^9, 3.683946763862039*^9}, {
   3.683946855058311*^9, 3.6839468559487123`*^9}, {3.683946888930604*^9, 
   3.6839468916350193`*^9}, {3.683965973504136*^9, 3.683965981803792*^9}, {
   3.6839660266131144`*^9, 3.6839660635760393`*^9}, {3.683966150618153*^9, 
   3.68396615989508*^9}, {3.683966552362355*^9, 3.683966630751149*^9}, {
   3.683966716879807*^9, 3.6839667201718407`*^9}, {3.683966814971418*^9, 
   3.683966816827961*^9}, {3.6839670871586246`*^9, 3.683967092940967*^9}, {
   3.6839672384469957`*^9, 3.683967264565357*^9}, {3.68396731494932*^9, 
   3.6839673155162992`*^9}, {3.6839675945381927`*^9, 
   3.6839676210608873`*^9}, {3.683967653597517*^9, 3.683967667282453*^9}, {
   3.683967706895344*^9, 3.68396783896605*^9}, {3.683967886281891*^9, 
   3.683967890763636*^9}, {3.6839680655577517`*^9, 3.683968086932863*^9}, {
   3.6840603924630165`*^9, 3.684060392650216*^9}, {3.6840604459398165`*^9, 
   3.6840604461270165`*^9}, {3.684060758127019*^9, 3.6840607719330187`*^9}, {
   3.684091108204876*^9, 3.684091109186337*^9}, {3.6840912297215223`*^9, 
   3.684091257151688*^9}, {3.684091304149659*^9, 3.6840913743737698`*^9}, {
   3.684091528500297*^9, 3.684091546612001*^9}, {3.6840916760088882`*^9, 
   3.684091710208632*^9}, {3.684091779365342*^9, 3.6840917872010107`*^9}, {
   3.6840918193186693`*^9, 3.684091822997663*^9}, {3.6840920204991217`*^9, 
   3.684092027753368*^9}, {3.684092242821933*^9, 3.68409224877349*^9}, {
   3.684092375853321*^9, 3.684092446402137*^9}, {3.684092529479371*^9, 
   3.684092601541663*^9}, {3.684092631976705*^9, 3.684092706444932*^9}, {
   3.684122583204362*^9, 3.684122583338593*^9}, {3.684122617769887*^9, 
   3.6841226326425533`*^9}, {3.684122842850892*^9, 3.6841228803670053`*^9}, 
   3.684662456408539*^9, {3.685083215676849*^9, 3.685083225479327*^9}, {
   3.685273842160692*^9, 3.685273843369611*^9}, 3.6852859866984377`*^9, {
   3.6852865797565203`*^9, 3.6852867418301563`*^9}, {3.68528678670284*^9, 
   3.685286837658393*^9}, {3.6852876402392797`*^9, 3.68528764082928*^9}, {
   3.685287686672612*^9, 3.6852877328345823`*^9}, 3.685288359599786*^9, {
   3.685288405265378*^9, 3.685288413567605*^9}, {3.685288460159389*^9, 
   3.6852885790055923`*^9}, {3.685288768401976*^9, 3.685288776719144*^9}, {
   3.6852888594727592`*^9, 3.685288869167355*^9}, {3.6852889018778133`*^9, 
   3.685288928989695*^9}, {3.685289137837894*^9, 3.685289156578895*^9}, {
   3.6852893298741426`*^9, 3.685289339184761*^9}, {3.6852894371950483`*^9, 
   3.685289490675153*^9}, {3.685289568013756*^9, 3.685289576976079*^9}, {
   3.685289608357773*^9, 3.685289658711172*^9}, {3.685289735218001*^9, 
   3.6852898069422903`*^9}, {3.685289930471755*^9, 3.6852900810382442`*^9}, {
   3.685290184784808*^9, 3.685290208077758*^9}, {3.685290251165133*^9, 
   3.685290252421399*^9}, {3.68529039678588*^9, 3.685290434036058*^9}, {
   3.6852905616198597`*^9, 3.685290648834957*^9}, {3.685290772225479*^9, 
   3.6852908445314827`*^9}, {3.685290944529559*^9, 3.685290945406761*^9}, {
   3.6852994143987617`*^9, 3.6852994382525454`*^9}, {3.685299497976466*^9, 
   3.685299503829215*^9}, {3.6852995392171392`*^9, 3.685299553596043*^9}, {
   3.685299992582048*^9, 3.685300067802575*^9}, {3.685300115636456*^9, 
   3.6853001652887*^9}, {3.685857413666704*^9, 3.685857416648685*^9}, {
   3.685857458690517*^9, 3.685857460318738*^9}, {3.685857739673769*^9, 
   3.685857804387884*^9}, {3.685858053804237*^9, 3.685858097255934*^9}, {
   3.685858148189295*^9, 3.685858151202751*^9}, {3.6858582764177513`*^9, 
   3.685858278372242*^9}, {3.685858315119955*^9, 3.685858329069948*^9}, {
   3.6858583599842167`*^9, 3.685858443918298*^9}, {3.685858474929714*^9, 
   3.685858549786276*^9}, {3.685858646044956*^9, 3.685858729439179*^9}, {
   3.685858780464095*^9, 3.6858588174599037`*^9}, {3.6858588495554333`*^9, 
   3.685858854343585*^9}, {3.685858884851486*^9, 3.685858951983511*^9}, {
   3.6858589994260674`*^9, 3.685859010716827*^9}, {3.6858590913432503`*^9, 
   3.6858590933696404`*^9}, {3.6858591266083927`*^9, 3.685859175567238*^9}, 
   3.6858592443417377`*^9, {3.685859293152143*^9, 3.685859295503252*^9}, {
   3.685859355430237*^9, 3.685859372237409*^9}, {3.685859410728088*^9, 
   3.685859590839635*^9}, {3.685859820712883*^9, 3.685859834624839*^9}, {
   3.685859901734437*^9, 3.685859903978137*^9}, {3.685860388384758*^9, 
   3.685860416754836*^9}, {3.6858604795627413`*^9, 3.685860511227654*^9}, {
   3.685860553637973*^9, 3.685860566610154*^9}, {3.685860914338649*^9, 
   3.685860923340206*^9}, {3.6858609596753263`*^9, 3.685861032397937*^9}, {
   3.685861066897966*^9, 3.685861207437435*^9}, {3.685861269462768*^9, 
   3.685861333954526*^9}, {3.68586136454725*^9, 3.685861474318748*^9}, {
   3.685861517225202*^9, 3.685861630127417*^9}, 3.686539654224182*^9, {
   3.6865404731983*^9, 3.686540476632311*^9}, {3.686540838010448*^9, 
   3.6865408409572363`*^9}, {3.6865408783411818`*^9, 
   3.6865409309172087`*^9}, {3.6865410083871517`*^9, 3.686541019566337*^9}, {
   3.686541108523757*^9, 3.6865411160838137`*^9}, {3.686541345632307*^9, 
   3.6865413786757183`*^9}, {3.686541414671311*^9, 3.6865414232386217`*^9}, {
   3.686542165948737*^9, 3.686542250863388*^9}, {3.686542299286373*^9, 
   3.686542419483355*^9}, {3.686542765365814*^9, 3.686542896718195*^9}, {
   3.6865429651805696`*^9, 3.686542994361959*^9}, {3.686543052880053*^9, 
   3.68654308126692*^9}, {3.686543188486841*^9, 3.686543246136475*^9}, {
   3.686543277183275*^9, 3.686543354140892*^9}, {3.6865439221051064`*^9, 
   3.6865439500516567`*^9}, {3.686543985426251*^9, 3.6865439866119337`*^9}, {
   3.686545075225861*^9, 3.686545085996263*^9}, {3.686545142403131*^9, 
   3.686545154301223*^9}, {3.686545598710578*^9, 3.686545685031988*^9}, {
   3.686545806504096*^9, 3.686545808221018*^9}, {3.686545843613908*^9, 
   3.686545858760723*^9}, {3.6865468611972027`*^9, 3.686546864228973*^9}, {
   3.686547018082903*^9, 3.686547062903644*^9}, {3.686547103018654*^9, 
   3.6865472172532377`*^9}, {3.686547286632975*^9, 3.6865473094649553`*^9}, {
   3.68654734925193*^9, 3.686547436898713*^9}, {3.68654749370965*^9, 
   3.686547528959359*^9}, {3.6865475636469088`*^9, 3.686547609057955*^9}, {
   3.686547718709216*^9, 3.6865477759813023`*^9}, {3.686547826737184*^9, 
   3.6865480149557037`*^9}, {3.686548045811688*^9, 3.6865480534768553`*^9}, {
   3.686548358608864*^9, 3.6865483707973957`*^9}, {3.686548545229116*^9, 
   3.686548549254797*^9}, {3.686548686552582*^9, 3.686548712479574*^9}, {
   3.686548761541046*^9, 3.686548806149107*^9}, {3.686548844469076*^9, 
   3.6865488456614323`*^9}, {3.6865512672815323`*^9, 3.686551349772369*^9}, {
   3.686551394491152*^9, 3.686551419220949*^9}, {3.68655189093897*^9, 
   3.686551964617752*^9}, {3.686552125034718*^9, 3.686552127678214*^9}, {
   3.686552278738872*^9, 3.686552288051901*^9}, {3.6865525035827713`*^9, 
   3.6865525526784353`*^9}, {3.686552735101828*^9, 3.686552795442685*^9}, {
   3.686628436474517*^9, 3.686628536322258*^9}, {3.68662881083289*^9, 
   3.686628821580617*^9}, {3.686628873638318*^9, 3.686628910585565*^9}, {
   3.686628983168025*^9, 3.686628993135873*^9}, {3.6866290244093027`*^9, 
   3.686629036936223*^9}, {3.6866293771745977`*^9, 3.686629573836637*^9}, {
   3.686629642177215*^9, 3.686629642772787*^9}, {3.6866297243246927`*^9, 
   3.6866297671380577`*^9}, {3.68662980589575*^9, 3.686629921941725*^9}, {
   3.6866301477171917`*^9, 3.6866302198000402`*^9}, {3.686631051792659*^9, 
   3.686631052244384*^9}, {3.686631154483254*^9, 3.6866311697969627`*^9}, {
   3.686631263333723*^9, 3.686631263601918*^9}, {3.68663139867869*^9, 
   3.686631404581489*^9}, {3.686632984962451*^9, 3.686633004174432*^9}, {
   3.686633061394642*^9, 3.686633130346314*^9}, 3.68663316413481*^9, {
   3.686633214954659*^9, 3.686633436141959*^9}, {3.686633467345083*^9, 
   3.6866334864811068`*^9}, {3.686633732074704*^9, 3.686633950675581*^9}, {
   3.6866339912854033`*^9, 3.6866340595716867`*^9}, {3.686634611539404*^9, 
   3.686634722427601*^9}, {3.686634814350337*^9, 3.686634814637828*^9}, {
   3.686634848303295*^9, 3.686634860468422*^9}, {3.686634959197269*^9, 
   3.686635026207364*^9}, {3.68663506717763*^9, 3.6866350677294807`*^9}, {
   3.686635268873169*^9, 3.686635270603788*^9}, {3.68663534659659*^9, 
   3.6866353696721687`*^9}, {3.686635471413412*^9, 3.686635473760983*^9}, {
   3.6866356402250023`*^9, 3.686635644442481*^9}, {3.686635679985345*^9, 
   3.686635680347102*^9}, {3.686635843450626*^9, 3.686635908529458*^9}, {
   3.686635953810897*^9, 3.6866359950759563`*^9}, {3.686636042815072*^9, 
   3.6866360445918283`*^9}, {3.686636224007688*^9, 3.686636234413014*^9}, {
   3.6866363817222557`*^9, 3.6866363842471933`*^9}, {3.686636486734826*^9, 
   3.686636604026161*^9}, {3.686636645111916*^9, 3.6866366626343937`*^9}, {
   3.6866368484698067`*^9, 3.6866368552832947`*^9}, {3.686636984722148*^9, 
   3.686637049101089*^9}, {3.6866375767735558`*^9, 3.686637597148796*^9}, {
   3.686637631857192*^9, 3.686637660318914*^9}, 3.686637776999043*^9, 
   3.6866378241871567`*^9, {3.686638044023232*^9, 3.6866380683314543`*^9}, {
   3.686648571674737*^9, 3.686648590586588*^9}, {3.686648644103341*^9, 
   3.686648699630372*^9}, {3.6866488318241167`*^9, 3.686648927329699*^9}, {
   3.686649011926078*^9, 3.686649017761073*^9}, 3.6866490558613367`*^9, {
   3.686649180311656*^9, 3.686649237585517*^9}, {3.686649268341486*^9, 
   3.686649299889591*^9}, 3.686649347683876*^9, 3.6866493803691263`*^9, {
   3.686649421883061*^9, 3.686649452018013*^9}, {3.68664949952623*^9, 
   3.686649514816061*^9}, {3.686649598044321*^9, 3.6866496640735693`*^9}, {
   3.6866499742318172`*^9, 3.686650012613455*^9}, {3.68665014714787*^9, 
   3.686650168490876*^9}, {3.686653129809244*^9, 3.686653140923666*^9}, 
   3.686653171799799*^9, {3.686653203816307*^9, 3.686653397228634*^9}, {
   3.686653465870021*^9, 3.686653466088895*^9}, {3.6866591193849993`*^9, 
   3.6866591352071877`*^9}, {3.6866591837970877`*^9, 3.686659210764454*^9}, {
   3.690874230627651*^9, 3.690874268469171*^9}, {3.69087456514154*^9, 
   3.690874571118001*^9}, {3.690874767574018*^9, 3.690874860731365*^9}, {
   3.690875040950881*^9, 3.6908750514047613`*^9}, {3.690875087293241*^9, 
   3.69087508958405*^9}, {3.6908751460732193`*^9, 3.690875201464147*^9}, {
   3.690875238324142*^9, 3.690875244244442*^9}, {3.690875332110111*^9, 
   3.690875363938733*^9}, {3.690875479188937*^9, 3.690875485268502*^9}, 
   3.690875705424657*^9, {3.6908757446717033`*^9, 3.6908757566453743`*^9}, {
   3.690876018113851*^9, 3.690876090202244*^9}, {3.690876130301553*^9, 
   3.6908761305931997`*^9}, {3.6908777563640127`*^9, 3.690877779628961*^9}, 
   3.690877827070587*^9, {3.690877871694067*^9, 3.690877874641543*^9}, {
   3.69087798628898*^9, 3.6908779879454107`*^9}, {3.6908781424130697`*^9, 
   3.6908781425572853`*^9}, {3.6908803713150663`*^9, 3.690880375245215*^9}, {
   3.690880409207288*^9, 3.690880410842257*^9}, {3.690880443383237*^9, 
   3.6908804962567787`*^9}, {3.6908805517361307`*^9, 3.690880564888294*^9}, {
   3.69088101790664*^9, 3.690881022556374*^9}, {3.690881227807176*^9, 
   3.690881275933888*^9}, {3.690881502287149*^9, 3.690881522253579*^9}, {
   3.6908815757498693`*^9, 3.690881595413355*^9}, {3.690881689977112*^9, 
   3.69088169272445*^9}, {3.690881823214643*^9, 3.69088186786427*^9}, {
   3.690881955183896*^9, 3.690881961966961*^9}, {3.690881998162924*^9, 
   3.6908820032421503`*^9}, {3.690882071583241*^9, 3.6908821174670258`*^9}, {
   3.6908824066073523`*^9, 3.690882492658814*^9}, {3.690882526130692*^9, 
   3.690882543146225*^9}, {3.690882573247946*^9, 3.6908826192923326`*^9}, {
   3.690882691946703*^9, 3.6908827488378057`*^9}, {3.690883257173853*^9, 
   3.690883258024938*^9}, 3.690883321343444*^9, {3.6908834730530787`*^9, 
   3.690883505616665*^9}, {3.690883586666316*^9, 3.690883587886053*^9}, {
   3.690883726732333*^9, 3.690883730635768*^9}, {3.6908847416899967`*^9, 
   3.690884800086941*^9}, {3.690884833588965*^9, 3.690884846707543*^9}, {
   3.690884956325741*^9, 3.690884960595014*^9}, {3.6908851561812887`*^9, 
   3.690885159020203*^9}, {3.6908851897244253`*^9, 3.690885201131942*^9}, {
   3.690885272446883*^9, 3.6908852729055567`*^9}, {3.6908859970913353`*^9, 
   3.6908859977945843`*^9}, {3.6908861081770906`*^9, 
   3.6908862090540743`*^9}, {3.6908862482401733`*^9, 3.690886364363151*^9}, {
   3.690886399985446*^9, 3.690886400137809*^9}, {3.6908865069000893`*^9, 
   3.6908865110757093`*^9}, {3.690886573914403*^9, 3.690886576086144*^9}, {
   3.6908866803232403`*^9, 3.690886722521126*^9}, {3.690886883712907*^9, 
   3.6908868936917353`*^9}, {3.690886953697514*^9, 3.69088720818289*^9}, {
   3.690887585108078*^9, 3.690887606738702*^9}, {3.690887655800318*^9, 
   3.690887749544612*^9}, {3.6908879194909277`*^9, 3.690888005258441*^9}, {
   3.690888075006751*^9, 3.690888123005012*^9}, {3.690888154107943*^9, 
   3.690888165839559*^9}, {3.6908882161064177`*^9, 3.690888300778494*^9}, {
   3.690888770051404*^9, 3.690888783892008*^9}, {3.6908901458703527`*^9, 
   3.69089015758394*^9}, {3.690890191114049*^9, 3.690890310979289*^9}, {
   3.690890370799263*^9, 3.6908904356941547`*^9}, {3.6908905934376993`*^9, 
   3.690890698958642*^9}, {3.690890731521749*^9, 3.690890737003929*^9}, {
   3.690890771478266*^9, 3.690890787306638*^9}, {3.6908910420417356`*^9, 
   3.690891074213822*^9}, {3.690891258425971*^9, 3.690891490528727*^9}, {
   3.690891524491589*^9, 3.690891537510817*^9}, {3.690891574588409*^9, 
   3.6908916135805607`*^9}, {3.690891651212935*^9, 3.69089166958366*^9}, {
   3.705028644018639*^9, 3.705028647599525*^9}, {3.705029101172365*^9, 
   3.705029107290732*^9}, {3.705029149528407*^9, 3.705029166206131*^9}, {
   3.7050292214937363`*^9, 3.705029222428486*^9}, {3.705029256554995*^9, 
   3.7050292575576143`*^9}, {3.705029316649047*^9, 3.705029347147097*^9}, {
   3.705379984089679*^9, 3.7053800543548393`*^9}, {3.705380095250505*^9, 
   3.705380108115614*^9}, 3.705380148169414*^9, {3.70538019683451*^9, 
   3.705380213095047*^9}, {3.7053804166764708`*^9, 3.7053804402345467`*^9}, {
   3.705380566776813*^9, 3.705380576521379*^9}, {3.705380611345931*^9, 
   3.705380640053465*^9}, {3.705380722618957*^9, 3.7053807433800993`*^9}, {
   3.705380799464793*^9, 3.7053808012668877`*^9}, {3.70538083355977*^9, 
   3.7053808588703537`*^9}, {3.705380894266776*^9, 3.705380895503932*^9}, {
   3.705381058358472*^9, 3.705381065358697*^9}, {3.705381102219154*^9, 
   3.705381105719275*^9}, {3.7053811558848658`*^9, 3.705381277348399*^9}, {
   3.705381974474321*^9, 3.705382003060091*^9}, {3.70538203810003*^9, 
   3.7053820411788607`*^9}, {3.705382108889456*^9, 3.7053821467573442`*^9}, {
   3.7053821786248293`*^9, 3.705382179617531*^9}, {3.705382481290308*^9, 
   3.705382522062904*^9}, {3.7053825535503798`*^9, 3.705382555679167*^9}, {
   3.705382630831314*^9, 3.705382708240117*^9}, {3.705383207993224*^9, 
   3.705383246279758*^9}, {3.7053833306512327`*^9, 3.705383407796979*^9}, {
   3.7053834552078743`*^9, 3.705383537800829*^9}, {3.705384029774302*^9, 
   3.7053840422253847`*^9}, {3.705384123564886*^9, 3.705384143090168*^9}, {
   3.705384309537613*^9, 3.7053843356127777`*^9}, {3.705384405334144*^9, 
   3.705384495729072*^9}, {3.705384623715996*^9, 3.7053846592758636`*^9}, {
   3.711351111770576*^9, 3.711351113856388*^9}, {3.711351145943018*^9, 
   3.711351152774556*^9}, {3.711352489546802*^9, 3.7113524914060583`*^9}, {
   3.711352591876399*^9, 3.711352760371176*^9}, {3.711352795505945*^9, 
   3.7113528061494007`*^9}, {3.711352946687026*^9, 3.711352947992275*^9}, {
   3.711872206103055*^9, 3.711872263469742*^9}, {3.711872332850672*^9, 
   3.711872333104144*^9}, {3.712038639037058*^9, 3.712038722071074*^9}, {
   3.712039155304579*^9, 3.712039158509935*^9}, {3.712039224408853*^9, 
   3.712039251439427*^9}, 3.712039316350741*^9, {3.712039482613575*^9, 
   3.7120395129520063`*^9}, {3.712039594482299*^9, 3.712039605579571*^9}, 
   3.712039718787567*^9, {3.712039758887706*^9, 3.7120397888413477`*^9}, {
   3.712041870075758*^9, 3.712041943264638*^9}, {3.712042231432576*^9, 
   3.712042273473843*^9}, {3.712042360001617*^9, 3.71204237737145*^9}, {
   3.7120424364915*^9, 3.712042501698626*^9}, {3.7120431096884727`*^9, 
   3.712043171911232*^9}, {3.712476026225499*^9, 3.712476051024411*^9}, 
   3.712476100775619*^9, {3.712476645729344*^9, 3.712476702921423*^9}, {
   3.712476737449065*^9, 3.712476758588127*^9}, {3.712476821297773*^9, 
   3.712476831624687*^9}, {3.712478672953239*^9, 3.712478687162466*^9}, {
   3.71247877161519*^9, 3.7124788849639*^9}, {3.71247892120807*^9, 
   3.712479085521503*^9}, 3.712479672963057*^9, 3.712479765712575*^9, {
   3.712479876872574*^9, 3.712479903650322*^9}, {3.71247996505613*^9, 
   3.712479966003675*^9}, {3.712480117261688*^9, 3.712480119698488*^9}, {
   3.712482156061984*^9, 3.71248216501117*^9}, {3.712482757208851*^9, 
   3.712482776726468*^9}, {3.712483335793894*^9, 3.712483376257092*^9}, {
   3.712483534540847*^9, 3.712483585245718*^9}, {3.712554043916257*^9, 
   3.71255407205492*^9}, {3.7125541494405003`*^9, 3.712554259995756*^9}, {
   3.7143644954690237`*^9, 3.714364498620454*^9}, {3.714364530650523*^9, 
   3.714364532234413*^9}, {3.7143646331374283`*^9, 3.714364648867915*^9}, {
   3.714365035935523*^9, 3.714365068184824*^9}, {3.7143652039844503`*^9, 
   3.714365213251802*^9}, {3.714365295999627*^9, 3.7143653030948477`*^9}, {
   3.7143657521081333`*^9, 3.714365762242819*^9}, {3.714366393814814*^9, 
   3.714366419913129*^9}, {3.714366466477858*^9, 3.714366467674356*^9}, {
   3.714366501937438*^9, 3.714366505723628*^9}, {3.714367167021729*^9, 
   3.71436740245326*^9}, {3.71436784827663*^9, 3.71436790164959*^9}, {
   3.714368199518496*^9, 3.714368219341834*^9}, {3.714371806450234*^9, 
   3.7143718693604507`*^9}, {3.714382063322034*^9, 3.7143820825814953`*^9}, {
   3.714382171958996*^9, 3.714382227738618*^9}, {3.7143822632015457`*^9, 
   3.714382264865775*^9}, {3.714382426612254*^9, 3.714382427651102*^9}, {
   3.714382513226758*^9, 3.714382549358738*^9}, {3.714382765216748*^9, 
   3.71438278235201*^9}, {3.714382814153933*^9, 3.714382877397443*^9}, {
   3.714382914463346*^9, 3.7143829604795856`*^9}, {3.7143830031041183`*^9, 
   3.714383016857888*^9}, {3.714383452159505*^9, 3.714383452706373*^9}, {
   3.71438357484027*^9, 3.714383576234696*^9}, {3.7143842702358847`*^9, 
   3.7143842886956043`*^9}, {3.714384418210403*^9, 3.714384448154595*^9}, {
   3.714384480836069*^9, 3.7143844888277197`*^9}, {3.714384681093793*^9, 
   3.714384684135685*^9}, {3.714384749336495*^9, 3.714384813372967*^9}, {
   3.714913420900578*^9, 3.714913427072555*^9}, {3.714913637647194*^9, 
   3.714913637787532*^9}, {3.717255063345069*^9, 3.717255067807077*^9}, {
   3.717395044031961*^9, 3.7173950695702343`*^9}, {3.717398264490716*^9, 
   3.717398264834695*^9}, {3.7173982974356413`*^9, 3.71739829773092*^9}, {
   3.7173983312148123`*^9, 3.717398410935465*^9}, {3.7173985489270277`*^9, 
   3.7173985906669397`*^9}, {3.717398663320311*^9, 3.7173986995367126`*^9}, {
   3.717398766756649*^9, 3.7173988344406033`*^9}, 3.71774089699483*^9, {
   3.717942206461034*^9, 3.717942206596238*^9}, {3.718001083421361*^9, 
   3.7180010863717527`*^9}, {3.718001135716935*^9, 3.7180011730042562`*^9}, {
   3.7180012420205603`*^9, 3.718001246082906*^9}, {3.71800131202584*^9, 
   3.718001490297841*^9}, {3.718001758217325*^9, 3.7180017624723253`*^9}, {
   3.7180020086844378`*^9, 3.71800202103938*^9}, {3.7180021208313513`*^9, 
   3.718002138298472*^9}, {3.718002178107481*^9, 3.7180021870757427`*^9}, {
   3.718002278697837*^9, 3.7180022917418327`*^9}, {3.718004011257444*^9, 
   3.718004060306809*^9}, {3.718004178323606*^9, 3.718004200606402*^9}, {
   3.718004231644692*^9, 3.718004294053293*^9}, {3.718004332014246*^9, 
   3.7180043497396603`*^9}, {3.718004412450512*^9, 3.718004595533595*^9}, {
   3.7180050361781807`*^9, 3.718005036907324*^9}, {3.7180052709414*^9, 
   3.7180052733987427`*^9}, {3.718005586792924*^9, 3.7180056075707893`*^9}, {
   3.718005658259408*^9, 3.718005754817443*^9}, {3.71800856463656*^9, 
   3.71800857111441*^9}, {3.718011555406355*^9, 3.7180116436145687`*^9}, {
   3.7180116767277927`*^9, 3.718011716802039*^9}, {3.718011812817415*^9, 
   3.7180119039718733`*^9}, {3.718011946973734*^9, 3.718012009401104*^9}, {
   3.7180123279232197`*^9, 3.7180123303706408`*^9}, {3.71801252154222*^9, 
   3.718012528853718*^9}, {3.718012574849312*^9, 3.718012574966339*^9}, {
   3.718013271916046*^9, 3.7180133097037563`*^9}, {3.718016115636971*^9, 
   3.718016120139029*^9}, 3.718016215078356*^9, {3.718019262481444*^9, 
   3.718019291892578*^9}, {3.718019370276717*^9, 3.718019382214369*^9}, {
   3.7211196117950983`*^9, 3.7211196190156116`*^9}, {3.721119873978917*^9, 
   3.7211199180767117`*^9}, {3.721120069028652*^9, 3.721120086820054*^9}, {
   3.7211203629974737`*^9, 3.721120378086216*^9}, {3.721120546601379*^9, 
   3.721120563053873*^9}, {3.721120663741705*^9, 3.721120766165029*^9}, {
   3.721120876472484*^9, 3.721120891775013*^9}, {3.7264644375260687`*^9, 
   3.7264645036052856`*^9}, {3.726464686640902*^9, 3.726464771880875*^9}, {
   3.7264648643195066`*^9, 3.726464864714224*^9}, {3.726464894788763*^9, 
   3.726464899931055*^9}, {3.726465521020912*^9, 3.7264655296166677`*^9}, {
   3.726465562307811*^9, 3.726465564286838*^9}, {3.7264656031749563`*^9, 
   3.726465603565353*^9}, {3.72646579688305*^9, 3.726465891906356*^9}, {
   3.7264663432198753`*^9, 3.72646636188659*^9}, {3.726466394426621*^9, 
   3.726466397906537*^9}, {3.72646643028502*^9, 3.7264664738672743`*^9}, {
   3.726470472993636*^9, 3.726470659912174*^9}, {3.726470703245821*^9, 
   3.7264708113652277`*^9}, {3.726471139895425*^9, 3.726471141013126*^9}, {
   3.726472819712816*^9, 3.726472845807508*^9}, {3.726472914426814*^9, 
   3.726472989073833*^9}, {3.7264736097205877`*^9, 3.7264736249601183`*^9}, {
   3.726473937644083*^9, 3.7264740296429377`*^9}, {3.726474069875421*^9, 
   3.726474072787526*^9}, {3.726474120797406*^9, 3.726474143959763*^9}, {
   3.726903049806059*^9, 3.7269030547343407`*^9}, {3.726903142272684*^9, 
   3.7269031702654457`*^9}, {3.72690323817605*^9, 3.72690324214952*^9}, {
   3.726904666797345*^9, 3.72690472961802*^9}, {3.72690503908265*^9, 
   3.7269050510823603`*^9}, {3.7269053676492443`*^9, 
   3.7269053707222843`*^9}, {3.726905403463994*^9, 3.7269054117154408`*^9}, {
   3.726905443971477*^9, 3.726905503921131*^9}, {3.727164034637611*^9, 
   3.727164037865155*^9}, {3.7271640764732323`*^9, 3.727164077961165*^9}, {
   3.727164122196415*^9, 3.727164195119008*^9}, {3.72716427909273*^9, 
   3.7271643209900007`*^9}, {3.727164551035019*^9, 3.727164566305697*^9}, {
   3.727164826004902*^9, 3.727164856425762*^9}, {3.727164911864665*^9, 
   3.7271649472276087`*^9}, 3.727165028000827*^9, {3.727165439732793*^9, 
   3.727165443410883*^9}, {3.7271655152345543`*^9, 3.727165518210894*^9}, {
   3.727165612817891*^9, 3.7271656329615726`*^9}, {3.727165667879693*^9, 
   3.727165694496305*^9}, {3.727165734300901*^9, 3.727165734484397*^9}, {
   3.7271657951285973`*^9, 3.727165800373414*^9}, 3.727166507374901*^9, {
   3.727166549641523*^9, 3.7271665498291388`*^9}, {3.727679363556376*^9, 
   3.72767937948258*^9}, {3.730144293448069*^9, 3.730144296917568*^9}, {
   3.73054370707415*^9, 3.730543712122634*^9}, {3.730543761369562*^9, 
   3.730543761517167*^9}, {3.7305443832698298`*^9, 3.730544389970169*^9}, {
   3.7305444347499123`*^9, 3.730544441814794*^9}, {3.7338213833691607`*^9, 
   3.73382142523367*^9}, {3.733821517836343*^9, 3.733821589706148*^9}, {
   3.7340600124562607`*^9, 3.734060063003248*^9}, {3.734060151981092*^9, 
   3.734060191746683*^9}, {3.734060532242168*^9, 3.734060537704068*^9}, {
   3.734060585434946*^9, 3.7340606246327257`*^9}, {3.734061322798773*^9, 
   3.7340613832977667`*^9}, {3.734069414109047*^9, 3.734069418132304*^9}, {
   3.734069680538341*^9, 3.734069682825083*^9}, {3.734069733114378*^9, 
   3.734069767695834*^9}, {3.734070638970187*^9, 3.7340706410756283`*^9}, {
   3.734070708827845*^9, 3.7340707230922327`*^9}, {3.734083757070177*^9, 
   3.734083760402235*^9}, {3.7340840063424*^9, 3.734084006846657*^9}, 
   3.734084066556363*^9, {3.7340842329062567`*^9, 3.7340842649203176`*^9}, {
   3.734084439828793*^9, 3.734084441876491*^9}, 3.734085096434462*^9, {
   3.735025726975864*^9, 3.7350257613559637`*^9}, {3.7350258084118757`*^9, 
   3.73502582134374*^9}, {3.7373672276558247`*^9, 3.737367228060437*^9}, {
   3.737367271609766*^9, 3.737367504463647*^9}, {3.737367582693924*^9, 
   3.737367631755705*^9}, {3.737367687697275*^9, 3.737367900789085*^9}, {
   3.737367931531619*^9, 3.7373679328500347`*^9}, {3.737367992378326*^9, 
   3.737368184001418*^9}, {3.737368333564695*^9, 3.737368401954623*^9}, {
   3.737368455521988*^9, 3.7373687186417828`*^9}, {3.7373687558414373`*^9, 
   3.737368894109664*^9}, {3.737370888637344*^9, 3.737370901891749*^9}, {
   3.737371024231876*^9, 3.7373711379412193`*^9}, {3.737371190992815*^9, 
   3.737371197173321*^9}, {3.7373714128846693`*^9, 3.737371471027995*^9}, 
   3.73737150259584*^9, {3.7373716044231253`*^9, 3.737371628470811*^9}, {
   3.737371991230308*^9, 3.73737216973435*^9}, {3.737372259597537*^9, 
   3.73737230284109*^9}, {3.737372371273141*^9, 3.737372416495337*^9}, {
   3.7373726176529007`*^9, 3.737372640371661*^9}, {3.737372675754272*^9, 
   3.737372688047003*^9}, {3.737372730568018*^9, 3.737372787801385*^9}, {
   3.737373842226688*^9, 3.7373738544398613`*^9}, {3.737373922351479*^9, 
   3.7373739660355883`*^9}, {3.7373739961147947`*^9, 
   3.7373740095217733`*^9}, {3.73737417904727*^9, 3.7373741904563*^9}, {
   3.737374318036729*^9, 3.737374333651806*^9}, {3.737374502409672*^9, 
   3.737374528134899*^9}, {3.737374592736747*^9, 3.73737462776425*^9}, {
   3.737382441958872*^9, 3.737382542523754*^9}, {3.737382588651662*^9, 
   3.737382598538786*^9}, {3.737382658892776*^9, 3.737382680641808*^9}, 
   3.737968544778825*^9, {3.738044991514905*^9, 3.738045063823347*^9}, {
   3.738045218611374*^9, 3.738045254776026*^9}, {3.738045467737158*^9, 
   3.738045468426176*^9}, {3.738292472268417*^9, 3.738292476830532*^9}, {
   3.7382975723874826`*^9, 3.738297572664035*^9}, {3.738297678253478*^9, 
   3.738297691732843*^9}, {3.738297799382346*^9, 3.738297799698987*^9}, {
   3.738297854337059*^9, 3.7382978562770987`*^9}, {3.738299981879734*^9, 
   3.738299985756028*^9}, {3.738300232134356*^9, 3.738300265159543*^9}, {
   3.738301417561187*^9, 3.738301421379984*^9}, {3.738305570882181*^9, 
   3.738305574359171*^9}, {3.738305621413837*^9, 3.738305622716712*^9}, {
   3.7383056704989567`*^9, 3.7383056997381477`*^9}, {3.738307257373272*^9, 
   3.738307324478037*^9}, {3.738307399772354*^9, 3.7383074103856564`*^9}, {
   3.738308050665287*^9, 3.7383081040337133`*^9}, {3.738308166180523*^9, 
   3.7383082080336847`*^9}, {3.7383082450667143`*^9, 3.738308250712489*^9}, {
   3.738308384535429*^9, 3.7383083908472548`*^9}, {3.738308495902157*^9, 
   3.738308505252943*^9}, {3.7383086210103207`*^9, 3.7383086225272503`*^9}, {
   3.738308655158655*^9, 3.7383086656697283`*^9}, {3.738309065814824*^9, 
   3.73830911591614*^9}, {3.7383091656127863`*^9, 3.7383092548540363`*^9}, {
   3.7383093166278467`*^9, 3.738309381077928*^9}, {3.7383094140745573`*^9, 
   3.7383094144477453`*^9}, {3.738309474660437*^9, 3.7383094763264933`*^9}, {
   3.738309544373711*^9, 3.7383095672818317`*^9}, {3.738309626746223*^9, 
   3.738309686606472*^9}, {3.7383097878300123`*^9, 3.7383098080184298`*^9}, {
   3.73831008863527*^9, 3.7383100931104927`*^9}, {3.73831012540152*^9, 
   3.738310153239818*^9}, {3.73831018813549*^9, 3.7383101906998787`*^9}, {
   3.738310702605604*^9, 3.7383107366660223`*^9}, {3.738311448517243*^9, 
   3.738311476287703*^9}, {3.73831153232588*^9, 3.738311643201743*^9}, {
   3.73831170591776*^9, 3.7383117596420403`*^9}, {3.738311803135922*^9, 
   3.738311881839653*^9}, {3.738312660839986*^9, 3.738312769887286*^9}, {
   3.738312858806275*^9, 3.738312880821744*^9}, {3.7383130875270042`*^9, 
   3.738313159525738*^9}, {3.73831449690935*^9, 3.73831472574437*^9}, {
   3.738315037050962*^9, 3.738315100386753*^9}, 3.7386448366225033`*^9, {
   3.739209267282373*^9, 3.739209268018241*^9}, {3.739209326856827*^9, 
   3.7392094359818153`*^9}, {3.739209885542487*^9, 3.739209934701859*^9}, {
   3.7392514819307404`*^9, 3.739251581962144*^9}, {3.739255008253765*^9, 
   3.739255011490672*^9}, {3.739255066656047*^9, 3.7392550824240007`*^9}, {
   3.739255142878743*^9, 3.739255283903492*^9}, {3.739255720480454*^9, 
   3.739255727111*^9}, {3.739256287055029*^9, 3.739256341393654*^9}, {
   3.73925641825317*^9, 3.7392565173479767`*^9}, {3.739263649822032*^9, 
   3.739263658124049*^9}, 3.739263715216667*^9, {3.7392637780936117`*^9, 
   3.7392638339231377`*^9}, {3.7392646974800873`*^9, 
   3.7392647880938883`*^9}, {3.739264828770708*^9, 3.739264860614913*^9}, {
   3.739265111538767*^9, 3.73926511238643*^9}, 3.7392651895141582`*^9, {
   3.739265274853752*^9, 3.739265344393036*^9}, 3.739265406508833*^9, {
   3.739265501727188*^9, 3.7392655468414288`*^9}, {3.7392655797055807`*^9, 
   3.739265654530856*^9}, {3.7392658147651653`*^9, 3.739265844506536*^9}, {
   3.739265905041802*^9, 3.739265913559229*^9}, {3.739265992597846*^9, 
   3.739265993275798*^9}, {3.739266033723297*^9, 3.739266035422327*^9}, {
   3.739266811418664*^9, 3.73926687478578*^9}, {3.739266977670642*^9, 
   3.739267041586645*^9}, {3.7392670907045803`*^9, 3.739267124775742*^9}, {
   3.739267566391371*^9, 3.739267581859811*^9}, {3.739267693849613*^9, 
   3.739267733480055*^9}, {3.739500656020678*^9, 3.739500659976337*^9}, {
   3.7395006969264317`*^9, 3.739500713982374*^9}, {3.739501495335629*^9, 
   3.739501544167218*^9}, {3.739501598877145*^9, 3.739501624752326*^9}, {
   3.739501656382229*^9, 3.73950165674544*^9}, {3.739501696252055*^9, 
   3.739501700174621*^9}, {3.739501815789463*^9, 3.739501848527233*^9}, {
   3.7395020425474033`*^9, 3.739502055293776*^9}, {3.739502270383594*^9, 
   3.7395023249533443`*^9}, {3.739502364851117*^9, 3.7395023649874983`*^9}, {
   3.739502397724936*^9, 3.73950245059044*^9}, {3.739502494773876*^9, 
   3.7395025078806763`*^9}, {3.739503687333411*^9, 3.739503690907442*^9}, {
   3.739504615185549*^9, 3.7395046199765778`*^9}, {3.7395046607954073`*^9, 
   3.7395046937366962`*^9}, {3.739504739026966*^9, 3.7395047466587133`*^9}, {
   3.739504808349332*^9, 3.739504840551146*^9}, {3.739505054065979*^9, 
   3.739505086771042*^9}, {3.739505219115593*^9, 3.7395052742229757`*^9}, {
   3.7395053160638657`*^9, 3.7395053687482347`*^9}, {3.739505438709841*^9, 
   3.739505440939834*^9}, {3.739505712856276*^9, 3.739505720094058*^9}, {
   3.73950674796898*^9, 3.7395067895030527`*^9}, {3.739506837284807*^9, 
   3.7395069307398977`*^9}, {3.739510669635346*^9, 3.7395106958391943`*^9}, {
   3.739510854101157*^9, 3.7395108698816967`*^9}, {3.739510902032847*^9, 
   3.7395109474224663`*^9}, {3.739510978476756*^9, 3.739511061221396*^9}, {
   3.739511141633822*^9, 3.739511147488902*^9}, {3.739511365717485*^9, 
   3.7395113847506*^9}, {3.739511574592642*^9, 3.7395115751698093`*^9}, {
   3.739512742152898*^9, 3.739512781917255*^9}, {3.739512835388238*^9, 
   3.739512836450012*^9}, {3.73951292009779*^9, 3.7395129219629602`*^9}, {
   3.73951303923135*^9, 3.739513068695093*^9}, {3.739513170936591*^9, 
   3.739513178640259*^9}, {3.7395132394206257`*^9, 3.739513271927874*^9}, 
   3.739513333199873*^9, {3.739513835482668*^9, 3.7395138598415413`*^9}, {
   3.739516616294798*^9, 3.739516630184428*^9}, {3.739520325663392*^9, 
   3.739520357127063*^9}, 3.73952039036992*^9, {3.739520609942298*^9, 
   3.739520628512047*^9}, {3.7395213965133944`*^9, 3.7395215217751837`*^9}, {
   3.7395218684504423`*^9, 3.739521868798478*^9}, {3.739522181151222*^9, 
   3.739522185509658*^9}, {3.7395250428083553`*^9, 3.73952512999087*^9}, {
   3.739525231381093*^9, 3.739525236148944*^9}, {3.739525441628783*^9, 
   3.739525447141528*^9}, {3.739525625305385*^9, 3.739525630522257*^9}, {
   3.739525688987609*^9, 3.7395257248002577`*^9}, {3.739525961073133*^9, 
   3.739525961341238*^9}, {3.739526200207596*^9, 3.739526260428417*^9}, {
   3.739526412293812*^9, 3.739526448415297*^9}, {3.7395270643373623`*^9, 
   3.7395270673875637`*^9}, {3.7395271048722343`*^9, 3.739527119577311*^9}, {
   3.739527214889127*^9, 3.739527301903318*^9}, {3.739527355429894*^9, 
   3.739527358675673*^9}, {3.7395273897861547`*^9, 3.739527416968782*^9}, {
   3.742010806687113*^9, 3.742010858483757*^9}, {3.742010908226156*^9, 
   3.742010932749796*^9}, {3.742011160214778*^9, 3.74201116475535*^9}, 
   3.742011265860978*^9, {3.74201160271281*^9, 3.7420116069067287`*^9}, {
   3.74201165267314*^9, 3.7420117396509542`*^9}, {3.7420117771334352`*^9, 
   3.742011792107109*^9}, {3.742011841321661*^9, 3.742011845982538*^9}, {
   3.742012242145617*^9, 3.742012242629952*^9}, {3.7420122736923532`*^9, 
   3.7420122964333153`*^9}, {3.742012345700942*^9, 3.742012353132306*^9}, {
   3.74201258496979*^9, 3.742012717560898*^9}, {3.7420256773746157`*^9, 
   3.742025723268963*^9}, {3.742025753509473*^9, 3.742025844855604*^9}, {
   3.742025881411282*^9, 3.742025899104787*^9}, {3.744033690604783*^9, 
   3.7440336969133663`*^9}, 3.744034816827615*^9, {3.75852973119795*^9, 
   3.758529911294166*^9}, {3.759519442614482*^9, 3.759519442890905*^9}, 
   3.762793093566566*^9, {3.786968497135445*^9, 3.786968519427211*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[727]:=",
 CellID->181416367,ExpressionUUID->"a0b6d64b-6880-4633-a539-94ac306243d0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ImportCrystalData", "[", "\"\<RunDialogue\>\"", "]"}], ":=", 
   RowBox[{"DialogInput", "[", 
    RowBox[{
     RowBox[{"DynamicModule", "[", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
        "name", ",", "gridA", ",", "gridB", ",", "currentGrid", ",", 
         "updGrid", ",", "\[IndentingNewLine]", 
         RowBox[{"sgKeys", "=", 
          RowBox[{"Keys", "@", "$SpaceGroups"}]}], ",", 
         RowBox[{"sgNumber", "=", "Null"}], ",", 
         RowBox[{"sgSymbol", "=", "Null"}], ",", "\[IndentingNewLine]", 
         "crystalSystem", ",", "systemParameterFields", ",", 
         "parameterFields", ",", "\[IndentingNewLine]", 
         RowBox[{"a", "=", "Null"}], ",", 
         RowBox[{"b", "=", "Null"}], ",", 
         RowBox[{"c", "=", "Null"}], ",", "\[IndentingNewLine]", 
         RowBox[{"\[Alpha]", "=", "Null"}], ",", 
         RowBox[{"\[Beta]", "=", "Null"}], ",", 
         RowBox[{"\[Gamma]", "=", "Null"}], ",", "\[IndentingNewLine]", 
         RowBox[{"chemicalFormula", "=", "Null"}], ",", 
         RowBox[{"wavelength", "=", "Null"}], ",", 
         RowBox[{"massDensity", "=", "Null"}], ",", 
         RowBox[{"formulaUnits", "=", "Null"}], ",", "\[IndentingNewLine]", 
         RowBox[{"atomdata", "=", 
          RowBox[{"{", "}"}]}], ",", "atomdataSummary", ",", 
         "updAtomdataSummary", ",", "\[IndentingNewLine]", 
         "createDeleteButtons", ",", "deleteButtons", ",", 
         "createAtomdataPanel", ",", 
         RowBox[{"atomdataPanel", "=", "\"\<(no entries)\>\""}], ",", 
         "updAtomdataPanel", ",", "\[IndentingNewLine]", 
         RowBox[{"(*", " ", 
          RowBox[{"Adding", " ", "entries"}], " ", "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"element", "=", "Null"}], ",", "elementListWithNumber", ",", 
         "\[IndentingNewLine]", "coordinates", ",", "\[IndentingNewLine]", 
         RowBox[{"coordX", "=", "Null"}], ",", 
         RowBox[{"coordY", "=", "Null"}], ",", 
         RowBox[{"coordZ", "=", "Null"}], ",", "\[IndentingNewLine]", 
         RowBox[{"occupationFactor", "=", "Null"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"adpType", "=", "\"\<Isotropic\>\""}], ",", "createAdpField",
          ",", "adpField", ",", "\[IndentingNewLine]", 
         RowBox[{"adpU11", "=", "Null"}], ",", 
         RowBox[{"adpU22", "=", "Null"}], ",", 
         RowBox[{"adpU33", "=", "Null"}], ",", "\[IndentingNewLine]", 
         RowBox[{"adpU12", "=", "Null"}], ",", 
         RowBox[{"adpU13", "=", "Null"}], ",", 
         RowBox[{"adpU23", "=", "Null"}], ",", "\[IndentingNewLine]", 
         RowBox[{"adpUiso", "=", "Null"}], ",", "ADPs", ",", 
         "\[IndentingNewLine]", "updRet", ",", "toBeReturned", ",", 
         RowBox[{"validQ", "=", "False"}]}], "\[IndentingNewLine]", "}"}], 
       ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"--", "-"}], "*", " ", "Setup", " ", "for", " ", "grid", " ",
          "B", " ", "*", 
         RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", " ", "Logic", " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"elementListWithNumber", "=", 
         RowBox[{
          RowBox[{
           RowBox[{"#", "<>", "\"\< (\>\"", "<>", "\[IndentingNewLine]", 
            RowBox[{"ToString", "@", 
             RowBox[{"$PeriodicTable", "[", 
              RowBox[{"#", ",", "\"\<AtomicNumber\>\""}], "]"}]}], "<>", 
            "\[IndentingNewLine]", "\"\<)\>\""}], "&"}], "/@", 
          RowBox[{"Keys", "@", "$PeriodicTable"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"elementListWithNumber", "=", 
         RowBox[{"Thread", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Keys", "@", "$PeriodicTable"}], "\[Rule]", 
           "elementListWithNumber"}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"createAdpField", "[", "]"}], ":=", 
         RowBox[{"Which", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"adpType", "===", "\"\<Isotropic\>\""}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"adpField", "=", 
            RowBox[{"Column", "[", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"InputField", "[", 
                RowBox[{
                 RowBox[{"Dynamic", "[", 
                  RowBox[{"adpUiso", ",", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"adpUiso", "=", "#"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                 ",", "\[IndentingNewLine]", "Number", ",", 
                 RowBox[{"FieldSize", "\[Rule]", 
                  RowBox[{"{", 
                   RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                 RowBox[{
                 "FieldHint", "\[Rule]", 
                  "\"\<\!\(\*SubscriptBox[\(U\), \(iso\)]\)\>\""}]}], "]"}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{"Spacer", "[", 
                RowBox[{"{", 
                 RowBox[{"165.", ",", "17.5"}], "}"}], "]"}]}], 
              "\[IndentingNewLine]", "}"}], "]"}]}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"adpType", "===", "\"\<Anisotropic\>\""}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"adpField", "=", 
            RowBox[{"Column", "[", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Row", "[", 
                RowBox[{"{", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"InputField", "[", 
                   RowBox[{
                    RowBox[{"Dynamic", "[", 
                    RowBox[{"adpU11", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"adpU11", "=", "#"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                    ",", "\[IndentingNewLine]", "Number", ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    RowBox[{
                    "FieldHint", "\[Rule]", 
                    "\"\<\!\(\*SubscriptBox[\(U\), \(11\)]\)\>\""}]}], "]"}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"Spacer", "[", "5", "]"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"InputField", "[", 
                   RowBox[{
                    RowBox[{"Dynamic", "[", 
                    RowBox[{"adpU22", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"adpU22", "=", "#"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                    ",", "\[IndentingNewLine]", "Number", ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    RowBox[{
                    "FieldHint", "\[Rule]", 
                    "\"\<\!\(\*SubscriptBox[\(U\), \(22\)]\)\>\""}]}], "]"}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"Spacer", "[", "5", "]"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"InputField", "[", 
                   RowBox[{
                    RowBox[{"Dynamic", "[", 
                    RowBox[{"adpU33", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"adpU33", "=", "#"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                    ",", "\[IndentingNewLine]", "Number", ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    RowBox[{
                    "FieldHint", "\[Rule]", 
                    "\"\<\!\(\*SubscriptBox[\(U\), \(33\)]\)\>\""}]}], 
                   "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"Row", "[", 
                RowBox[{"{", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"InputField", "[", 
                   RowBox[{
                    RowBox[{"Dynamic", "[", 
                    RowBox[{"adpU12", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"adpU12", "=", "#"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                    ",", "\[IndentingNewLine]", "Number", ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    RowBox[{
                    "FieldHint", "\[Rule]", 
                    "\"\<\!\(\*SubscriptBox[\(U\), \(12\)]\)\>\""}]}], "]"}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"Spacer", "[", "5", "]"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"InputField", "[", 
                   RowBox[{
                    RowBox[{"Dynamic", "[", 
                    RowBox[{"adpU13", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"adpU13", "=", "#"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                    ",", "\[IndentingNewLine]", "Number", ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    RowBox[{
                    "FieldHint", "\[Rule]", 
                    "\"\<\!\(\*SubscriptBox[\(U\), \(13\)]\)\>\""}]}], "]"}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"Spacer", "[", "5", "]"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"InputField", "[", 
                   RowBox[{
                    RowBox[{"Dynamic", "[", 
                    RowBox[{"adpU23", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"adpU23", "=", "#"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                    ",", "\[IndentingNewLine]", "Number", ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    RowBox[{
                    "FieldHint", "\[Rule]", 
                    "\"\<\!\(\*SubscriptBox[\(U\), \(23\)]\)\>\""}]}], 
                   "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], 
              "\[IndentingNewLine]", "}"}], "]"}]}]}], "\[IndentingNewLine]", 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"createAdpField", "[", "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "Dynamic", " ", "variable", " ", "storing", " ", "input", " ", 
          "data"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"ADPs", "=", 
         RowBox[{"Dynamic", "[", 
          RowBox[{"{", 
           RowBox[{
           "adpU11", ",", "adpU22", ",", "adpU33", ",", "adpU12", ",", 
            "adpU13", ",", "adpU23"}], "}"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"coordinates", "=", 
         RowBox[{"Dynamic", "[", 
          RowBox[{"{", 
           RowBox[{"coordX", ",", "coordY", ",", "coordZ"}], "}"}], "]"}]}], 
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"updRet", "[", "]"}], ":=", 
         RowBox[{"(", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"toBeReturned", "=", 
            RowBox[{"Association", "[", "]"}]}], ";", "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"element", "=!=", "Null"}], ",", "\[IndentingNewLine]", 
             RowBox[{"AssociateTo", "[", 
              RowBox[{"toBeReturned", ",", 
               RowBox[{"\"\<Element\>\"", "\[Rule]", "element"}]}], "]"}], 
             ",", "\[IndentingNewLine]", 
             RowBox[{"KeyDropFrom", "[", 
              RowBox[{"toBeReturned", ",", "\"\<Element\>\""}], "]"}]}], 
            "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"occupationFactor", "=!=", "Null"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"AssociateTo", "[", 
              RowBox[{"toBeReturned", ",", 
               RowBox[{
               "\"\<OccupationFactor\>\"", "\[Rule]", "occupationFactor"}]}], 
              "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"KeyDropFrom", "[", 
              RowBox[{"toBeReturned", ",", "\"\<OccupationFactor\>\""}], 
              "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{"AllTrue", "[", 
              RowBox[{
               RowBox[{
               "coordinates", "\[LeftDoubleBracket]", "1", 
                "\[RightDoubleBracket]"}], ",", "NumericQ"}], "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"AssociateTo", "[", 
              RowBox[{"toBeReturned", ",", 
               RowBox[{
               "\"\<FractionalCoordinates\>\"", "\[Rule]", "coordinates"}]}], 
              "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"KeyDropFrom", "[", 
              RowBox[{"toBeReturned", ",", "\"\<FractionalCoordinates\>\""}], 
              "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"Which", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"adpType", "===", "\"\<Anisotropic\>\""}], ")"}], "&&", 
              RowBox[{"AllTrue", "[", 
               RowBox[{
                RowBox[{
                "ADPs", "\[LeftDoubleBracket]", "1", 
                 "\[RightDoubleBracket]"}], ",", "NumericQ"}], "]"}]}], ",", 
             "\[IndentingNewLine]", "\t", 
             RowBox[{
              RowBox[{"AssociateTo", "[", 
               RowBox[{"toBeReturned", ",", 
                RowBox[{
                "\"\<DisplacementParameters\>\"", "\[Rule]", "ADPs"}]}], 
               "]"}], ";", "\[IndentingNewLine]", "\t", 
              RowBox[{"AssociateTo", "[", 
               RowBox[{"toBeReturned", ",", 
                RowBox[{"\"\<Type\>\"", "\[Rule]", "\"\<Uani\>\""}]}], 
               "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"adpType", "===", "\"\<Isotropic\>\""}], ")"}], "&&", 
              RowBox[{"NumericQ", "@", "adpUiso"}]}], ",", 
             "\[IndentingNewLine]", "\t", 
             RowBox[{
              RowBox[{"AssociateTo", "[", 
               RowBox[{"toBeReturned", ",", 
                RowBox[{
                "\"\<DisplacementParameters\>\"", "\[Rule]", "adpUiso"}]}], 
               "]"}], ";", "\[IndentingNewLine]", "\t", 
              RowBox[{"AssociateTo", "[", 
               RowBox[{"toBeReturned", ",", 
                RowBox[{"\"\<Type\>\"", "\[Rule]", "\"\<Uiso\>\""}]}], 
               "]"}]}], ",", "\[IndentingNewLine]", "True", ",", 
             "\[IndentingNewLine]", "\t", 
             RowBox[{"KeyDropFrom", "[", 
              RowBox[{"toBeReturned", ",", "\"\<DisplacementParameters\>\""}],
               "]"}]}], "\[IndentingNewLine]", "]"}], ";", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{"element", "=!=", "Null"}], ")"}], "&&", 
              RowBox[{"(", 
               RowBox[{"AllTrue", "[", 
                RowBox[{
                 RowBox[{
                 "coordinates", "\[LeftDoubleBracket]", "1", 
                  "\[RightDoubleBracket]"}], ",", "NumericQ"}], "]"}], 
               ")"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"validQ", "=", "True"}], ",", 
             RowBox[{"validQ", "=", "False"}]}], "]"}]}], 
          "\[IndentingNewLine]", ")"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"updRet", "[", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"--", "-"}], "*"}], " ", "//", " ", 
           RowBox[{"End", " ", "of", " ", "grid", " ", "B", " ", "setup"}]}], 
          " ", "//", " ", 
          RowBox[{"*", 
           RowBox[{"--", "-"}]}]}], "*)"}], "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", "Logic", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"systemParameterFields", "[", "system_String", "]"}], ":=", 
         RowBox[{"Which", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"system", "===", "\"\<Triclinic\>\""}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Column", "[", 
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "a"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<a\>\""}], ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "b"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<b\>\""}], ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "c"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<c\>\""}], ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}]}], 
                "\[IndentingNewLine]", "}"}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Row", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "\[Alpha]"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<\[Alpha]\>\""}], ",", 
                   
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "\[Beta]"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<\[Beta]\>\""}], ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "\[Gamma]"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<\[Gamma]\>\""}], ",", 
                   
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}]}], 
                "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", 
             "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           
           RowBox[{"system", "===", "\"\<Monoclinic\>\""}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Column", "[", 
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "a"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<a\>\""}], ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "b"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<b\>\""}], ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "c"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<c\>\""}], ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}]}], 
                "\[IndentingNewLine]", "}"}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Row", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"\[Alpha]", "=", "90"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<\[Alpha]\>\""}], ",", 
                   
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"\[Beta]", "=", "90"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<\[Beta]\>\""}], ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "\[Gamma]"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<\[Gamma]\>\""}], ",", 
                   
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}]}], 
                "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", 
             "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           
           RowBox[{"system", "===", "\"\<Orthorhombic\>\""}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Column", "[", 
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Row", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "a"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<a\>\""}], ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "b"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<b\>\""}], ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "c"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<c\>\""}], ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}]}], 
                "\[IndentingNewLine]", "}"}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Row", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"\[Alpha]", "=", "90"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<\[Alpha]\>\""}], ",", 
                   
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"\[Beta]", "=", "90"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<\[Beta]\>\""}], ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"\[Gamma]", "=", "90"}], ",", "Number", ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<\[Gamma]\>\""}], ",", 
                   
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}]}], 
                "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", 
             "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           
           RowBox[{"system", "===", "\"\<Tetragonal\>\""}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Dynamic", "@", 
            RowBox[{"Column", "[", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Dynamic", "@", 
                RowBox[{"Row", "[", 
                 RowBox[{"{", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "[", 
                    RowBox[{"a", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"a", "=", "#"}], ";", 
                    RowBox[{"b", "=", "#"}]}], ")"}], "&"}]}], "]"}], ",", 
                    "Number", ",", "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<a\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Spacer", "[", "5", "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"b", "=", 
                    RowBox[{"Dynamic", "@", "a"}]}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<b\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Spacer", "[", "5", "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "@", "c"}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<c\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}]}], 
                  "\[IndentingNewLine]", "}"}], "]"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"Dynamic", "@", 
                RowBox[{"Row", "[", 
                 RowBox[{"{", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"\[Alpha]", "=", "90"}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<\[Alpha]\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Spacer", "[", "5", "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"\[Beta]", "=", "90"}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<\[Beta]\>\""}], ",", 
                    
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Spacer", "[", "5", "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"\[Gamma]", "=", "90"}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<\[Gamma]\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}]}], 
                  "\[IndentingNewLine]", "}"}], "]"}]}]}], 
              "\[IndentingNewLine]", "}"}], "]"}]}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"system", "===", "\"\<Hexagonal\>\""}], "||", 
            RowBox[{"system", "===", "\"\<Trigonal\>\""}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Dynamic", "@", 
            RowBox[{"Column", "[", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Dynamic", "@", 
                RowBox[{"Row", "[", 
                 RowBox[{"{", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "[", 
                    RowBox[{"a", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"a", "=", "#"}], ";", 
                    RowBox[{"b", "=", "#"}]}], ")"}], "&"}]}], "]"}], ",", 
                    "Number", ",", "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<a\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Spacer", "[", "5", "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"b", "=", 
                    RowBox[{"Dynamic", "@", "a"}]}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<b\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Spacer", "[", "5", "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "@", "c"}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<c\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}]}], 
                  "\[IndentingNewLine]", "}"}], "]"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"Dynamic", "@", 
                RowBox[{"Row", "[", 
                 RowBox[{"{", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"\[Alpha]", "=", "90"}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<\[Alpha]\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Spacer", "[", "5", "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"\[Beta]", "=", "90"}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<\[Beta]\>\""}], ",", 
                    
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Spacer", "[", "5", "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"\[Gamma]", "=", "120"}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<\[Gamma]\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}]}], 
                  "\[IndentingNewLine]", "}"}], "]"}]}]}], 
              "\[IndentingNewLine]", "}"}], "]"}]}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"system", "===", "\"\<Cubic\>\""}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Dynamic", "@", 
            RowBox[{"Column", "[", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Dynamic", "@", 
                RowBox[{"Row", "[", 
                 RowBox[{"{", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "[", 
                    RowBox[{"a", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"a", "=", "#"}], ";", 
                    RowBox[{"b", "=", "#"}], ";", 
                    RowBox[{"c", "=", "#"}]}], ")"}], "&"}]}], "]"}], ",", 
                    "Number", ",", "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<a\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "True"}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Spacer", "[", "5", "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"b", "=", 
                    RowBox[{"Dynamic", "@", "a"}]}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<b\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Spacer", "[", "5", "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"c", "=", 
                    RowBox[{"Dynamic", "@", "a"}]}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<c\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}]}], 
                  "\[IndentingNewLine]", "}"}], "]"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"Dynamic", "@", 
                RowBox[{"Row", "[", 
                 RowBox[{"{", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"\[Alpha]", "=", "90"}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<\[Alpha]\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Spacer", "[", "5", "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"\[Beta]", "=", "90"}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<\[Beta]\>\""}], ",", 
                    
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Spacer", "[", "5", "]"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"\[Gamma]", "=", "90"}], ",", "Number", ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FieldHint", "\[Rule]", "\"\<\[Gamma]\>\""}], ",", 
                    RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Enabled", "\[Rule]", "False"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"BaseStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", "0.65", "]"}]}]}], "]"}]}], 
                  "\[IndentingNewLine]", "}"}], "]"}]}]}], 
              "\[IndentingNewLine]", "}"}], "]"}]}]}], "\[IndentingNewLine]", 
          "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Atom", " ", "data"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"updAtomdataSummary", "[", "]"}], ":=", 
         RowBox[{"atomdataSummary", "=", 
          RowBox[{"atomdata", "\[LeftDoubleBracket]", "\[IndentingNewLine]", 
           RowBox[{"All", ",", 
            RowBox[{"{", 
             RowBox[{
             "\"\<Element\>\"", ",", "\"\<FractionalCoordinates\>\""}], 
             "}"}]}], "\[RightDoubleBracket]"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"createDeleteButtons", "[", "]"}], ":=", 
         RowBox[{"deleteButtons", "=", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"Button", "[", 
             RowBox[{"\"\<\[Times]\>\"", ",", 
              RowBox[{
               RowBox[{"atomdataSummary", "=", 
                RowBox[{"Delete", "[", 
                 RowBox[{"atomdataSummary", ",", "#"}], "]"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"createDeleteButtons", "[", "]"}], ";", 
               RowBox[{"createAtomdataPanel", "[", "]"}]}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Appearance", "\[Rule]", "\"\<Frameless\>\""}]}], "]"}],
             "&"}], "/@", 
           RowBox[{"Range", "@", 
            RowBox[{"Length", "@", "atomdataSummary"}]}]}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"createAtomdataPanel", "[", "]"}], ":=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"deleteButtons", "===", 
            RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"atomdataPanel", "=", "\"\<(no entries)\>\""}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"atomdataPanel", "=", 
            RowBox[{"Row", "[", 
             RowBox[{"{", 
              RowBox[{"Pane", "[", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"Grid", "[", 
                 RowBox[{
                  RowBox[{"Transpose", "@", 
                   RowBox[{"Join", "[", 
                    RowBox[{
                    RowBox[{"Transpose", "@", 
                    RowBox[{"Values", "@", "atomdataSummary"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"{", "deleteButtons", "}"}]}], "]"}]}], ",", 
                  RowBox[{"Alignment", "\[Rule]", "Left"}]}], "]"}], ",", 
                RowBox[{"Scrollbars", "\[Rule]", "False"}]}], "]"}], "}"}], 
             "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"updAtomdataPanel", "[", "]"}], ":=", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"atomdata", "===", 
            RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"atomdataPanel", "=", "\"\<(no entries)\>\""}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"updAtomdataSummary", "[", "]"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"createDeleteButtons", "[", "]"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"createAtomdataPanel", "[", "]"}]}]}], 
          "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Initial", " ", "settings"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"parameterFields", "=", 
         RowBox[{"systemParameterFields", "[", "\"\<Triclinic\>\"", "]"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"updAtomdataPanel", "[", "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"--", "-"}], "*", " ", "Grids", " ", "*", 
          RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Grid", " ", "switcher"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"updGrid", "[", "label_String", "]"}], ":=", 
         RowBox[{"currentGrid", "=", 
          RowBox[{"Which", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"label", "===", "\"\<A\>\""}], ",", "gridA", ",", 
            "\[IndentingNewLine]", 
            RowBox[{"label", "===", "\"\<B\>\""}], ",", "gridB"}], "]"}]}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"updGrid", "[", "\"\<A\>\"", "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Grid", " ", "A"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"gridA", "=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\"\<Crystal name\>\"", ",", 
              RowBox[{"InputField", "[", 
               RowBox[{
                RowBox[{"Dynamic", "@", "name"}], ",", "String", ",", 
                RowBox[{
                "FieldHint", "\[Rule]", "\"\<Crystal name or label\>\""}]}], 
               "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"\"\<Space group\>\"", ",", 
              RowBox[{"Dynamic", "@", 
               RowBox[{"Row", "[", 
                RowBox[{"{", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"PopupMenu", "[", 
                   RowBox[{
                    RowBox[{"Dynamic", "[", 
                    RowBox[{"sgNumber", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"sgNumber", "=", "#"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"sgSymbol", "=", 
                    RowBox[{
                    "sgKeys", "\[LeftDoubleBracket]", "sgNumber", 
                    "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", 
                    RowBox[{"crystalSystem", "=", 
                    RowBox[{"$SpaceGroups", "[", 
                    RowBox[{"sgSymbol", ",", "\"\<CrystalSystem\>\""}], 
                    "]"}]}], ";", "\[IndentingNewLine]", 
                    RowBox[{"parameterFields", "=", 
                    RowBox[{
                    "systemParameterFields", "[", "crystalSystem", "]"}]}]}], 
                    "\[IndentingNewLine]", ")"}], "&"}]}], "]"}], ",", 
                    "\[IndentingNewLine]", "\t", 
                    RowBox[{"Range", "@", "230"}], ",", "\"\<Number\>\""}], 
                   "]"}], ",", "\[IndentingNewLine]", 
                  RowBox[{"PopupMenu", "[", 
                   RowBox[{
                    RowBox[{"Dynamic", "[", 
                    RowBox[{"sgSymbol", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"sgSymbol", "=", "#"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"sgNumber", "=", 
                    RowBox[{"$SpaceGroups", "[", 
                    RowBox[{"sgSymbol", ",", "\"\<SpaceGroupNumber\>\""}], 
                    "]"}]}], ";", "\[IndentingNewLine]", 
                    RowBox[{"crystalSystem", "=", 
                    RowBox[{"$SpaceGroups", "[", 
                    RowBox[{"sgSymbol", ",", "\"\<CrystalSystem\>\""}], 
                    "]"}]}], ";", "\[IndentingNewLine]", 
                    RowBox[{"parameterFields", "=", 
                    RowBox[{
                    "systemParameterFields", "[", "crystalSystem", "]"}]}]}], 
                    "\[IndentingNewLine]", ")"}], "&"}]}], "]"}], ",", 
                    "\[IndentingNewLine]", "\t", 
                    RowBox[{"Keys", "@", "$SpaceGroups"}], ",", 
                    "\"\<Symbol\>\""}], "]"}]}], "}"}], "]"}]}]}], 
             "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Tooltip", "[", 
               RowBox[{"\"\<Lattice parameters\>\"", ",", 
                RowBox[{"Column", "[", 
                 RowBox[{"{", 
                  RowBox[{
                  "\"\<a  b  c\>\"", ",", 
                   "\"\<\[Alpha]  \[Beta]  \[Gamma]\>\"", ",", 
                   "\"\<\[ARing]ngstr\[ODoubleDot]m and degree\>\""}], "}"}], 
                 "]"}], ",", "\[IndentingNewLine]", 
                RowBox[{"TooltipDelay", "\[Rule]", "0.6"}]}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Dynamic", "@", "parameterFields"}]}], 
             "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Tooltip", "[", 
               RowBox[{
               "\"\<Chemical formula\>\"", ",", 
                "\"\<e.g. 'C13 H22 Fe N6 S3'\>\"", ",", 
                RowBox[{"TooltipDelay", "\[Rule]", "0.6"}]}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"InputField", "[", 
               RowBox[{
                RowBox[{"Dynamic", "@", "chemicalFormula"}], ",", "String", 
                ",", "\[IndentingNewLine]", 
                RowBox[{
                "FieldHint", "\[Rule]", "\"\<e.g. 'C13 H22 Fe N6 S3'\>\""}]}],
                "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Tooltip", "[", 
               RowBox[{
               "\"\<Wavelength\>\"", ",", 
                "\"\<\[ARing]ngstr\[ODoubleDot]m\>\"", ",", 
                RowBox[{"TooltipDelay", "\[Rule]", "0.6"}]}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Row", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "wavelength"}], ",", "Number", ",",
                    "\[IndentingNewLine]", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<\[Lambda]\>\""}]}], 
                  "]"}], ",", "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"PopupMenu", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "wavelength"}], ",", 
                   RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    "1.54059", "\[Rule]", 
                    "\"\<Cu \!\(\*SubscriptBox[\(K\[Alpha]\), \(1\)]\)\>\""}],
                     ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "1.54443", "\[Rule]", 
                    "\"\<Cu \!\(\*SubscriptBox[\(K\[Alpha]\), \(2\)]\)\>\""}],
                     ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "1.39223", "\[Rule]", 
                    "\"\<Cu \!\(\*SubscriptBox[\(K\[Beta]\), \(1\)]\)\>\""}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "0.70932", "\[Rule]", 
                    "\"\<Mo \!\(\*SubscriptBox[\(K\[Alpha]\), \(1\)]\)\>\""}],
                     ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "0.71361", "\[Rule]", 
                    "\"\<Mo \!\(\*SubscriptBox[\(K\[Alpha]\), \(2\)]\)\>\""}],
                     ",", "\[IndentingNewLine]", 
                    RowBox[{
                    "0.63230", "\[Rule]", 
                    "\"\<Mo \!\(\*SubscriptBox[\(K\[Beta]\), \
\(1\)]\)\>\""}]}], "\[IndentingNewLine]", "}"}], ",", 
                   "\"\<(Predefined)\>\""}], "]"}]}], "\[IndentingNewLine]", 
                "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Tooltip", "[", 
               RowBox[{
               "\"\<Mass density\>\"", ",", 
                "\"\<g/\!\(\*SuperscriptBox[\(cm\), \(3\)]\)\>\"", ",", 
                RowBox[{"TooltipDelay", "\[Rule]", "0.6"}]}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"Row", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "massDensity"}], ",", "Number", 
                   ",", "\[IndentingNewLine]", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<\[Rho]\>\""}]}], 
                  "]"}], ",", "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", "\"\<formula units\>\"", ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "@", "formulaUnits"}], ",", "Number", 
                   ",", "\[IndentingNewLine]", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<Z\>\""}]}], "]"}]}], 
                "\[IndentingNewLine]", "}"}], "]"}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"\"\<Atom data\>\"", ",", 
              RowBox[{"Column", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"Button", "[", 
                  RowBox[{"\"\<Add new element\>\"", ",", 
                   RowBox[{"updGrid", "[", "\"\<B\>\"", "]"}]}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Dynamic", "@", "atomdataPanel"}]}], 
                "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", 
             "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"Null", ",", 
              RowBox[{"Row", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"CancelButton", "[", "]"}], ",", 
                 RowBox[{"DefaultButton", "[", "\[IndentingNewLine]", 
                  RowBox[{"DialogReturn", "[", "\[IndentingNewLine]", 
                   RowBox[{"(*", " ", 
                    RowBox[{"Final", " ", "checks"}], " ", "*)"}], 
                   "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"StringQ", "@", "name"}]}], ",", 
                    RowBox[{"name", "=", "\"\<(no name)\>\""}]}], "]"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"chemicalFormula", "===", "Null"}], ",", 
                    RowBox[{"chemicalFormula", "=", "\"\<\>\""}]}], "]"}], 
                    ";", "\[IndentingNewLine]", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"formulaUnits", "===", "Null"}], ",", 
                    RowBox[{"formulaUnits", "=", "0"}]}], "]"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"sgSymbol", "===", "Null"}], ",", 
                    RowBox[{"sgSymbol", "=", "1"}]}], "]"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"wavelength", "===", "Null"}], ",", 
                    RowBox[{"wavelength", "=", 
                    RowBox[{"-", "1"}]}]}], "]"}], ";", "\[IndentingNewLine]",
                     "\[IndentingNewLine]", 
                    RowBox[{"(*", " ", "Return", " ", "*)"}], 
                    "\[IndentingNewLine]", 
                    RowBox[{"MaXrd`Private`$temp", "=", 
                    RowBox[{"{", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    "name", ",", "chemicalFormula", ",", "formulaUnits", ",", 
                    "sgSymbol", ",", "wavelength"}], "}"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"{", 
                    RowBox[{
                    "a", ",", "b", ",", "c", ",", "\[Alpha]", ",", "\[Beta]", 
                    ",", "\[Gamma]"}], "}"}], ",", "atomdata"}], 
                    "\[IndentingNewLine]", "}"}]}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"MaXrd`Private`$temp", "=", 
                    RowBox[{"Replace", "[", 
                    RowBox[{"MaXrd`Private`$temp", ",", "\[IndentingNewLine]", 
                    RowBox[{"x_Dynamic", "\[RuleDelayed]", 
                    RowBox[{
                    "x", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}]}], ",", 
                    RowBox[{"-", "1"}]}], "]"}]}]}], "\[IndentingNewLine]", 
                   "]"}], "]"}]}], "}"}], "]"}]}], "}"}]}], 
           "\[IndentingNewLine]", "}"}]}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Grid", " ", "B"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"gridB", "=", 
         RowBox[{"Dynamic", "@", 
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\"\<Element\>\"", ",", 
              RowBox[{"PopupMenu", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", 
                 RowBox[{"element", ",", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"element", "=", "#"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                ",", "\[IndentingNewLine]", "elementListWithNumber", ",", 
                "\"\<Element\>\""}], "]"}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"\"\<Fractional coordinates\>\"", ",", 
              RowBox[{"Row", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "[", 
                    RowBox[{"coordX", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"coordX", "=", "#"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                   ",", "\[IndentingNewLine]", "Number", ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<x\>\""}]}], "]"}], 
                 ",", "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "[", 
                    RowBox[{"coordY", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"coordY", "=", "#"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                   ",", "\[IndentingNewLine]", "Number", ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<y\>\""}]}], "]"}], 
                 ",", "\[IndentingNewLine]", 
                 RowBox[{"Spacer", "[", "5", "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"InputField", "[", 
                  RowBox[{
                   RowBox[{"Dynamic", "[", 
                    RowBox[{"coordZ", ",", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"coordZ", "=", "#"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                   ",", "\[IndentingNewLine]", "Number", ",", 
                   RowBox[{"FieldSize", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                   RowBox[{"FieldHint", "\[Rule]", "\"\<z\>\""}]}], "]"}]}], 
                "\[IndentingNewLine]", "}"}], "]"}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"\"\<Occupation factor\>\"", ",", 
              RowBox[{"InputField", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", 
                 RowBox[{"occupationFactor", ",", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"occupationFactor", "=", "#"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                ",", "Number", ",", 
                RowBox[{"FieldSize", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{"5.", ",", "1."}], "}"}]}], ",", 
                RowBox[{"FieldHint", "\[Rule]", "\"\<1\>\""}]}], "]"}]}], 
             "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Tooltip", "[", 
               RowBox[{
               "\"\<ADP type\>\"", ",", 
                "\"\<Anisotropic displacement parameters\>\"", ",", 
                RowBox[{"TooltipDelay", "\[Rule]", "0.6"}]}], "]"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"RadioButtonBar", "[", 
               RowBox[{
                RowBox[{"Dynamic", "[", 
                 RowBox[{"adpType", ",", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"adpType", "=", "#"}], ";", 
                    RowBox[{"createAdpField", "[", "]"}], ";", 
                    RowBox[{"updRet", "[", "]"}]}], ")"}], "&"}]}], "]"}], 
                ",", "\[IndentingNewLine]", 
                RowBox[{"{", 
                 RowBox[{"\"\<Isotropic\>\"", ",", "\"\<Anisotropic\>\""}], 
                 "}"}], ",", 
                RowBox[{"Method", "\[Rule]", "\"\<Active\>\""}]}], "]"}]}], 
             "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"Null", ",", 
              RowBox[{"Dynamic", "@", "adpField"}]}], "}"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"{", "}"}], ",", 
            RowBox[{"{", "}"}], ",", 
            RowBox[{"{", "}"}], ",", 
            RowBox[{"{", "}"}], ",", 
            RowBox[{"{", "}"}], ",", 
            RowBox[{"{", "}"}], ",", 
            RowBox[{"{", "}"}], ",", 
            RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{"Null", ",", 
              RowBox[{"Row", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"CancelButton", "[", 
                  RowBox[{"updGrid", "[", "\"\<A\>\"", "]"}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"DefaultButton", "[", 
                  RowBox[{"\"\<Add\>\"", ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"AppendTo", "[", 
                    RowBox[{"atomdata", ",", "\[IndentingNewLine]", 
                    RowBox[{"Replace", "[", 
                    RowBox[{"toBeReturned", ",", 
                    RowBox[{"x_Dynamic", "\[RuleDelayed]", 
                    RowBox[{
                    "x", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}]}], ",", 
                    RowBox[{"-", "1"}]}], "]"}]}], "]"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"updAtomdataPanel", "[", "]"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"updGrid", "[", "\"\<A\>\"", "]"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"Enabled", "\[Rule]", 
                    RowBox[{"Dynamic", "@", "validQ"}]}]}], "]"}]}], 
                "\[IndentingNewLine]", "}"}], "]"}]}], "}"}]}], 
           "\[IndentingNewLine]", "}"}]}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Grid", " ", "on", " ", "display"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"Dynamic", "@", 
         RowBox[{"Grid", "[", 
          RowBox[{
           RowBox[{
           "currentGrid", "\[LeftDoubleBracket]", "1", 
            "\[RightDoubleBracket]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Spacings", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0.5"}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"Alignment", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Left", ",", "Center"}], "}"}]}]}], "]"}]}]}]}], 
      "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Dialogue", " ", "settings"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
     "WindowTitle", "\[Rule]", "\"\<Add crystal to $CrystalData\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Modal", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"WindowSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"310", ",", "All"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}],
   ";"}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.739595978214114*^9, 3.739595990960588*^9}, {
   3.739596669627418*^9, 3.739596695911725*^9}, {3.739596912394574*^9, 
   3.739596932092749*^9}, {3.7395970199751673`*^9, 3.739597066689048*^9}, {
   3.73959711186619*^9, 3.739597356240508*^9}, {3.739597461697694*^9, 
   3.7395975030637703`*^9}, {3.739597555516307*^9, 3.739597641340172*^9}, {
   3.739597793824828*^9, 3.7395978241317577`*^9}, {3.739597855600132*^9, 
   3.739597902263493*^9}, {3.739598245770096*^9, 3.739598361343294*^9}, {
   3.739599172833571*^9, 3.739599177517766*^9}, {3.739599213923336*^9, 
   3.739599322529324*^9}, 3.739599511772471*^9, {3.739599555972958*^9, 
   3.739599564138731*^9}, {3.739599596703545*^9, 3.739599679162033*^9}, {
   3.739599709968329*^9, 3.739599729728099*^9}, {3.739599777433371*^9, 
   3.739599819200165*^9}, {3.7396001729638844`*^9, 3.7396002251424217`*^9}, 
   3.739600299286446*^9, {3.739600366177018*^9, 3.739600398831429*^9}, {
   3.739600442540759*^9, 3.739600442810607*^9}, {3.739600491367622*^9, 
   3.7396005534641953`*^9}, {3.7396006186292343`*^9, 
   3.7396006874968777`*^9}, {3.739600838419689*^9, 3.7396009595871468`*^9}, {
   3.739601031898162*^9, 3.7396010323136044`*^9}, {3.73960143563618*^9, 
   3.739601464736333*^9}, {3.739601721310192*^9, 3.739601722306417*^9}, {
   3.739602479115416*^9, 3.739602547709318*^9}, {3.73960261429424*^9, 
   3.739602633508088*^9}, {3.739602666336516*^9, 3.7396026675947447`*^9}, {
   3.7396027284612103`*^9, 3.739602738197445*^9}, {3.739602881326993*^9, 
   3.739602909640366*^9}, {3.739603624511942*^9, 3.739603791042316*^9}, {
   3.739603996203532*^9, 3.739604101606237*^9}, {3.739604146456543*^9, 
   3.73960415529599*^9}, {3.739604214561223*^9, 3.739604219167306*^9}, {
   3.7396042506303787`*^9, 3.739604268312009*^9}, {3.739604473386827*^9, 
   3.739604664867947*^9}, {3.739604847714067*^9, 3.73960497908556*^9}, {
   3.739605188312948*^9, 3.73960526815869*^9}, {3.7396053616518307`*^9, 
   3.739605380756493*^9}, {3.739606390752233*^9, 3.739606582251404*^9}, {
   3.73960661254064*^9, 3.739606647981111*^9}, {3.7396067107737417`*^9, 
   3.739606739461856*^9}, {3.7396075023942213`*^9, 3.73960754045004*^9}, {
   3.7396075782464437`*^9, 3.7396076187558393`*^9}, {3.73960765770329*^9, 
   3.739607781095315*^9}, {3.739607816578467*^9, 3.7396079456654997`*^9}, {
   3.7396079883067503`*^9, 3.739608014913579*^9}, {3.739608138957831*^9, 
   3.7396081392048283`*^9}, {3.739608180236808*^9, 3.73960818041252*^9}, {
   3.739608232358246*^9, 3.7396082832029963`*^9}, {3.739608314916871*^9, 
   3.7396083814410763`*^9}, {3.739608413778994*^9, 3.739608414923287*^9}, {
   3.739608540812207*^9, 3.739608564697151*^9}, {3.7396086208319187`*^9, 
   3.739608707325838*^9}, {3.7396087516824512`*^9, 3.739608772848316*^9}, {
   3.7396088172813683`*^9, 3.739608873886364*^9}, {3.739608949401414*^9, 
   3.739608971227984*^9}, {3.739609090888156*^9, 3.7396091126284237`*^9}, {
   3.739609146205271*^9, 3.739609200960956*^9}, {3.739609272821333*^9, 
   3.739609364028111*^9}, {3.739609461069508*^9, 3.739609674326315*^9}, {
   3.739609740987973*^9, 3.7396097423774967`*^9}, {3.7396098442242126`*^9, 
   3.739609861229912*^9}, 3.739609894456533*^9, {3.739610012922155*^9, 
   3.739610013510725*^9}, {3.739610062273484*^9, 3.739610108332995*^9}, 
   3.739610279762279*^9, 3.739610309890603*^9, {3.7396103881359386`*^9, 
   3.739610408666873*^9}, {3.739610449368506*^9, 3.739610474008996*^9}, {
   3.739610518181279*^9, 3.739610561128326*^9}, {3.739610605216217*^9, 
   3.7396106533798933`*^9}, {3.7396106961302347`*^9, 3.739610719521283*^9}, {
   3.7396107514167*^9, 3.739610785658737*^9}, {3.739610821836543*^9, 
   3.7396108270223303`*^9}, {3.739610904406472*^9, 3.7396109432912703`*^9}, {
   3.739610983393579*^9, 3.739610985921002*^9}, {3.739611047610756*^9, 
   3.739611082981056*^9}, {3.7396111202331247`*^9, 3.739611141913677*^9}, {
   3.739611174288352*^9, 3.7396112737859983`*^9}, {3.739611337138582*^9, 
   3.739611396260716*^9}, {3.7396228109407873`*^9, 3.739622874736499*^9}, {
   3.739622964649042*^9, 3.7396229763536654`*^9}, {3.739623010221518*^9, 
   3.73962313081952*^9}, {3.7396231658281612`*^9, 3.739623295079341*^9}, {
   3.739623332696557*^9, 3.739623332845948*^9}, {3.7396233779106073`*^9, 
   3.739623380655662*^9}, {3.7396234416776657`*^9, 3.739623517554187*^9}, {
   3.739623579334292*^9, 3.739623580450202*^9}, {3.739623651727364*^9, 
   3.739623662398727*^9}, {3.739623711135504*^9, 3.739623723580459*^9}, {
   3.7396273924772997`*^9, 3.739627495663086*^9}, {3.739627533657785*^9, 
   3.7396275715670977`*^9}, {3.739627602949834*^9, 3.739627758744505*^9}, {
   3.7396279052729*^9, 3.739627995644252*^9}, {3.73962812681828*^9, 
   3.739628140968225*^9}, {3.739628194120064*^9, 3.739628295620471*^9}, {
   3.739628515689384*^9, 3.739628592021266*^9}, {3.73962863395826*^9, 
   3.739628672903981*^9}, {3.739628719307742*^9, 3.739628853107712*^9}, {
   3.739628886385207*^9, 3.739628914180913*^9}, {3.739628990749894*^9, 
   3.739629014507296*^9}, {3.739629048859845*^9, 3.7396290748589783`*^9}, {
   3.739629383121718*^9, 3.7396293892553387`*^9}, {3.739629419353114*^9, 
   3.739629467696455*^9}, {3.739629579611897*^9, 3.739629594562914*^9}, {
   3.7396297021955147`*^9, 3.739629738962376*^9}, {3.7396298004087954`*^9, 
   3.7396299112522182`*^9}, {3.739629988308178*^9, 3.7396300054739428`*^9}, {
   3.739630076970662*^9, 3.739630092649198*^9}, {3.739630156530631*^9, 
   3.739630228830247*^9}, {3.739630260800342*^9, 3.739630351211857*^9}, {
   3.739630389373459*^9, 3.739630435431656*^9}, {3.7396304725706778`*^9, 
   3.739630502657832*^9}, {3.7396306002789*^9, 3.739630622685934*^9}, {
   3.739630702597105*^9, 3.739630787593442*^9}, {3.739630862777617*^9, 
   3.739630943598301*^9}, {3.739630996477914*^9, 3.739631079224884*^9}, {
   3.739631110227867*^9, 3.739631216168207*^9}, {3.739631268639762*^9, 
   3.7396314065719137`*^9}, {3.7396314393177147`*^9, 3.739631458844926*^9}, {
   3.73963149461353*^9, 3.73963155381565*^9}, {3.739631623512226*^9, 
   3.73963177342599*^9}, 3.739631815864191*^9, {3.739631869031271*^9, 
   3.739631945612903*^9}, {3.739631979531575*^9, 3.7396319840424557`*^9}, {
   3.7396320736534*^9, 3.7396320917410088`*^9}, {3.739632142721302*^9, 
   3.739632142863393*^9}, {3.73963219202211*^9, 3.7396322821004553`*^9}, {
   3.739632388268977*^9, 3.739632402956642*^9}, {3.739632435368124*^9, 
   3.7396327242385*^9}, {3.739632762526031*^9, 3.739632785336027*^9}, {
   3.739632827056922*^9, 3.739632827878628*^9}, {3.739632862923669*^9, 
   3.739632886577631*^9}, {3.739632963861861*^9, 3.7396330248348637`*^9}, {
   3.739675412157125*^9, 3.739675516086557*^9}, {3.739675594294528*^9, 
   3.739675656767128*^9}, {3.739675800550416*^9, 3.739675861434029*^9}, {
   3.7396759204476757`*^9, 3.739675943988346*^9}, {3.7396761895284767`*^9, 
   3.7396762101909847`*^9}, {3.739679000703518*^9, 3.7396791367361727`*^9}, {
   3.739679188600012*^9, 3.739679190122048*^9}, 3.739679236458902*^9, {
   3.739679299103034*^9, 3.739679382796001*^9}, {3.739679426804431*^9, 
   3.739679432938841*^9}, {3.7396794731976*^9, 3.739679510055163*^9}, {
   3.7396795991342297`*^9, 3.739679636995349*^9}, {3.739679699275319*^9, 
   3.7396797003419943`*^9}, {3.739679741712719*^9, 3.7396798364763117`*^9}, {
   3.739679885259416*^9, 3.739679887258333*^9}, {3.739680577068009*^9, 
   3.7396805980576267`*^9}, {3.73968066677735*^9, 3.739680678443376*^9}, {
   3.7396808330637836`*^9, 3.7396808539610367`*^9}, {3.7396810247286797`*^9, 
   3.739681026881317*^9}, {3.739681155384138*^9, 3.739681213740945*^9}, {
   3.739681332020043*^9, 3.739681407632062*^9}, {3.739682613028644*^9, 
   3.739682671253872*^9}, {3.7396828519162493`*^9, 3.7396829003948298`*^9}, {
   3.7396833755889797`*^9, 3.739683405064172*^9}, {3.7396834374814043`*^9, 
   3.7396834429171047`*^9}, 3.739683489676093*^9, {3.739684106265815*^9, 
   3.739684118955434*^9}, {3.739684179627265*^9, 3.7396842015951138`*^9}, {
   3.739684263587494*^9, 3.739684283216798*^9}, {3.73968880388513*^9, 
   3.739688838171343*^9}, {3.739688873192896*^9, 3.739688946020999*^9}, {
   3.739688988543015*^9, 3.739689104402824*^9}, {3.739689142834998*^9, 
   3.739689192432645*^9}, {3.73968922669903*^9, 3.7396892327928667`*^9}, {
   3.7396892708092947`*^9, 3.739689272888376*^9}, {3.739689314201379*^9, 
   3.739689368910149*^9}, {3.739689510382373*^9, 3.7396895422579107`*^9}, {
   3.739689774190139*^9, 3.739689778940134*^9}, {3.739689829620129*^9, 
   3.73968990164141*^9}, {3.739689951569553*^9, 3.739690108283433*^9}, {
   3.73969017399741*^9, 3.739690229819253*^9}, {3.739690264866005*^9, 
   3.739690342849268*^9}, {3.739758946799944*^9, 3.7397589481111593`*^9}, {
   3.739758995366086*^9, 3.739759002839532*^9}, {3.739863575531982*^9, 
   3.739863578353183*^9}, {3.739863707824779*^9, 3.739863740157061*^9}, {
   3.739863771072855*^9, 3.739863791517488*^9}, {3.739863868162785*^9, 
   3.739863870886099*^9}, {3.7398639129310913`*^9, 3.739863948384541*^9}, {
   3.739864013949608*^9, 3.7398640383000107`*^9}, {3.739864207728085*^9, 
   3.739864230387827*^9}, 3.739864282806341*^9, {3.739864336316687*^9, 
   3.739864377023755*^9}, {3.7398644823866262`*^9, 3.739864508937294*^9}, {
   3.739864848672627*^9, 3.739864856776475*^9}, {3.739864925721705*^9, 
   3.739864955440385*^9}, {3.739865048067428*^9, 3.739865100600758*^9}, {
   3.739865824948411*^9, 3.739865847441052*^9}, 3.739865896990898*^9, {
   3.739865928772797*^9, 3.739865969487401*^9}, {3.739866026639572*^9, 
   3.739866030789463*^9}, {3.7398661246333723`*^9, 3.739866125022056*^9}, {
   3.739866218724064*^9, 3.739866234677065*^9}, {3.739866367311499*^9, 
   3.739866367481835*^9}, {3.7398663985689*^9, 3.739866523829637*^9}, {
   3.739866571058456*^9, 3.7398665713374557`*^9}, {3.739866652844152*^9, 
   3.739866658837242*^9}, {3.739866718000596*^9, 3.7398667238271933`*^9}, {
   3.739866781347661*^9, 3.739866804024081*^9}, {3.7398668441415777`*^9, 
   3.7398668846214046`*^9}, {3.739866960197887*^9, 3.739867013444448*^9}, {
   3.739867046244567*^9, 3.739867065060412*^9}, {3.739867836084358*^9, 
   3.7398679029305677`*^9}, {3.739868009517646*^9, 3.7398680099155197`*^9}, {
   3.73986838483932*^9, 3.739868480695668*^9}, {3.739868581166408*^9, 
   3.7398685893985233`*^9}, {3.739868636008234*^9, 3.739868658031337*^9}, {
   3.7398686946914787`*^9, 3.739868712473447*^9}, {3.739868787636284*^9, 
   3.739868804537919*^9}, {3.739869520246541*^9, 3.7398695411085653`*^9}, {
   3.739869953126285*^9, 3.739869976386943*^9}, {3.739870087611046*^9, 
   3.7398702328716516`*^9}, {3.739870350125676*^9, 3.739870392186141*^9}, {
   3.739870422566345*^9, 3.7398704849265003`*^9}, {3.7398705309234533`*^9, 
   3.7398705454106703`*^9}, {3.739870622355419*^9, 3.739870711135853*^9}, {
   3.739870762703689*^9, 3.739870762984342*^9}, {3.739876439573551*^9, 
   3.739876456494874*^9}, {3.73987676781678*^9, 3.739876806094466*^9}, {
   3.739876944013143*^9, 3.739876966551764*^9}, {3.739877083454373*^9, 
   3.739877148859359*^9}, {3.739877228013012*^9, 3.739877232938452*^9}, {
   3.739877402328149*^9, 3.7398774168235397`*^9}, 3.739883203190524*^9, {
   3.7398838170096703`*^9, 3.7398838284660063`*^9}, {3.739884144446562*^9, 
   3.739884151374771*^9}, 3.7398842053380117`*^9, {3.739884364414351*^9, 
   3.739884366328815*^9}, 3.739884400758272*^9, {3.740715301864786*^9, 
   3.74071530491991*^9}, {3.740718948306694*^9, 3.740718974231278*^9}, {
   3.740719005521709*^9, 3.740719076476572*^9}, {3.740719249286849*^9, 
   3.740719282471192*^9}, {3.740719319774604*^9, 3.740719321100967*^9}, {
   3.740719355530716*^9, 3.740719356375108*^9}, {3.740719476017921*^9, 
   3.740719545357823*^9}, {3.740719585650416*^9, 3.740719627948525*^9}, {
   3.7407196636576643`*^9, 3.740719678868546*^9}, {3.740720112294278*^9, 
   3.7407202424705763`*^9}, {3.740720281690967*^9, 3.740720360295545*^9}, {
   3.7407204178744917`*^9, 3.7407204517139597`*^9}, {3.740720542486318*^9, 
   3.7407206238042316`*^9}, {3.7407206598393383`*^9, 3.740720683396193*^9}, {
   3.7407207541633797`*^9, 3.740720754676684*^9}, {3.740722123423622*^9, 
   3.740722139079146*^9}, {3.740722618155561*^9, 3.740722618528919*^9}, {
   3.740725597051619*^9, 3.7407256103766947`*^9}, {3.743835348895899*^9, 
   3.743835350614464*^9}, {3.744033597296912*^9, 3.7440336078716087`*^9}, {
   3.7440336543163357`*^9, 3.744033668984364*^9}, {3.7585299130209827`*^9, 
   3.758529955658185*^9}, 3.7627930936625423`*^9, {3.7649582675680656`*^9, 
   3.764958270948595*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[728]:=",
 CellID->737696194,ExpressionUUID->"f8454f89-89b1-46fa-b25d-02aa8975ff40"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ImportCrystalData", "[", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "name", "}"}], ",", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"MaXrd`Private`$temp", "=", "Null"}], ";", "\[IndentingNewLine]", 
     RowBox[{"ImportCrystalData", "[", "\"\<RunDialogue\>\"", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"MaXrd`Private`$temp", "===", "Null"}], ",", 
       RowBox[{"Return", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"name", "=", 
      RowBox[{"MaXrd`Private`$temp", "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Execute", " ", "ImportCrystalData", " ", "on", " ", "input", " ", 
       "data"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"ListQ", "@", "MaXrd`Private`$temp"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"!", 
          RowBox[{"AllTrue", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
             "MaXrd`Private`$temp", "\[LeftDoubleBracket]", "2", 
              "\[RightDoubleBracket]"}], "/.", 
             RowBox[{"x_Dynamic", "\[RuleDelayed]", 
              RowBox[{
              "x", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}]}],
             ",", "NumericQ"}], "]"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Message", "[", 
           RowBox[{"ImportCrystalData", "::", "latticeParameters"}], "]"}], 
          ";", 
          RowBox[{"Abort", "[", "]"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"ImportCrystalData", "@@", "MaXrd`Private`$temp"}]}], 
        "\[IndentingNewLine]", "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Reset", " ", "temporary", " ", "variable"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"MaXrd`Private`$temp", "=", "Null"}], ";", "\[IndentingNewLine]",
      "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Display", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"KeyValueMap", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"#1", "\[Equal]", "\"\<AtomData\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"\"\<AtomData\>\"", "\[Rule]", 
           RowBox[{"Shallow", "[", 
            RowBox[{"#2", ",", "1"}], "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"#1", "\[Rule]", "#2"}]}], "]"}], "&"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"$CrystalData", "[", "name", "]"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.739877426691807*^9, 3.739877512185233*^9}, {
   3.739877546275635*^9, 3.7398776229190817`*^9}, {3.739877703000132*^9, 
   3.739877749709647*^9}, {3.739877809507863*^9, 3.739877812473098*^9}, {
   3.73988326754291*^9, 3.7398833299152517`*^9}, 3.739883389420485*^9, {
   3.739883430701161*^9, 3.7398834730901318`*^9}, {3.7407211261529217`*^9, 
   3.740721187584734*^9}, 3.740721261813945*^9, {3.740721315715322*^9, 
   3.740721315988946*^9}, {3.740721861127396*^9, 3.7407218680373373`*^9}, {
   3.7407225108236713`*^9, 3.740722544404612*^9}, {3.740722575666327*^9, 
   3.740722581820733*^9}, {3.7407266695846148`*^9, 3.7407266704084167`*^9}, {
   3.7416719890224524`*^9, 3.74167199814979*^9}, {3.741672032958386*^9, 
   3.741672045595846*^9}, {3.743835351755103*^9, 3.7438353571302423`*^9}, {
   3.758529957439567*^9, 3.7585299679328337`*^9}, 3.762793093672283*^9, {
   3.787461129238645*^9, 3.7874611307007437`*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[729]:=",
 CellID->1785585076,ExpressionUUID->"9e9e304e-931a-4299-b34f-66de1a80f267"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[42060, 1021, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"a86de21a-e765-4fb6-b77b-28217a824958",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 416173, 8193}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 818, 17, 24, "History",ExpressionUUID->"075ee22c-9cab-41fc-9178-5c78c3d07668",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1401, 41, 123, 1, 29, "CategorizationSection",ExpressionUUID->"995ccc7c-1e8b-4aef-9546-df61fba7a3b4",
 CellID->1122911449],
Cell[1527, 44, 134, 2, 30, "Categorization",ExpressionUUID->"3a01e3ee-337d-4461-9f00-224634dcbfe4",
 CellID->686433507],
Cell[1664, 48, 175, 3, 30, "Categorization",ExpressionUUID->"e7ca5fe0-98f7-4af7-9063-c8f13f752da4",
 CellID->605800465],
Cell[1842, 53, 344, 5, 30, "Categorization",ExpressionUUID->"2cb818f7-f88f-40d3-80e2-ae816e391fc2",
 CellID->468444828],
Cell[2189, 60, 219, 3, 30, "Categorization",ExpressionUUID->"8ad360ca-23b2-4621-a776-72d3211e6e21"]
}, Closed]],
Cell[CellGroupData[{
Cell[2445, 68, 110, 1, 19, "KeywordsSection",ExpressionUUID->"ff744614-5046-4abb-9ddc-5608950869bc",
 CellID->477174294],
Cell[2558, 71, 100, 1, 70, "Keywords",ExpressionUUID->"c29f1eb8-4252-4f8a-910c-3a455b7352ae",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2695, 77, 120, 1, 19, "TemplatesSection",ExpressionUUID->"581eb59b-ab2a-4962-8268-125ef23413f2",
 CellID->1872225408],
Cell[2818, 80, 149, 2, 70, "Template",ExpressionUUID->"6c095dfc-f2b2-415d-bddf-460e7cf96c01",
 CellID->1562036412],
Cell[2970, 84, 137, 2, 70, "Template",ExpressionUUID->"fd2a15e0-fd16-4ed9-a09a-02b841cd8554",
 CellID->158391909],
Cell[3110, 88, 136, 2, 70, "Template",ExpressionUUID->"c0d14b7a-a5ce-4dae-960c-e2290cf8d329",
 CellID->1360575930],
Cell[3249, 92, 137, 2, 70, "Template",ExpressionUUID->"ce24500f-b5a7-4f6d-890d-808dfe74f57e",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3423, 99, 108, 1, 19, "DetailsSection",ExpressionUUID->"63363ce8-0063-441c-8249-be651b92fd00",
 CellID->307771771],
Cell[3534, 102, 118, 2, 70, "Details",ExpressionUUID->"94af7237-224b-4051-b443-d01047d347e1",
 CellID->670882175],
Cell[3655, 106, 124, 2, 70, "Details",ExpressionUUID->"4e921f31-45c6-4ff1-a875-1ca079f595e5",
 CellID->350963985],
Cell[3782, 110, 119, 2, 70, "Details",ExpressionUUID->"53eda391-a71d-4300-adb7-9545fdce4ded",
 CellID->8391405],
Cell[3904, 114, 124, 2, 70, "Details",ExpressionUUID->"f31422f0-cf5e-44e8-ba72-ec1e8ca65dc1",
 CellID->3610269],
Cell[4031, 118, 116, 2, 70, "Details",ExpressionUUID->"90446701-1547-4fe1-8da4-47595ff47e78",
 CellID->401364205],
Cell[4150, 122, 116, 2, 70, "Details",ExpressionUUID->"e07a56bc-222f-40a1-8817-b5c81d9a40f2",
 CellID->350204745],
Cell[4269, 126, 118, 2, 70, "Details",ExpressionUUID->"c2e58b6a-b208-4d1e-9bc1-2194794e443d",
 CellID->732958810],
Cell[4390, 130, 133, 2, 70, "Details",ExpressionUUID->"b611a689-bbb8-4377-8ec6-96e1144c4225",
 CellID->222905350],
Cell[4526, 134, 122, 2, 70, "Details",ExpressionUUID->"78e77e83-8ed4-49b2-a7a5-d90532afc36d",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4685, 141, 181, 2, 63, "ObjectName",ExpressionUUID->"dfe05296-6871-461e-a1d7-bfdb61fc336a",
 CellID->1224892054],
Cell[4869, 145, 4627, 109, 194, "Usage",ExpressionUUID->"59133999-1b1c-4778-bdab-c66b83c200b3",
 CellID->974978287],
Cell[9499, 256, 1120, 27, 60, "Notes",ExpressionUUID->"308feaf8-1515-419a-a342-9f1fea63a631",
 CellID->1642976032],
Cell[10622, 285, 761, 16, 44, "Notes",ExpressionUUID->"8e4f28c0-1c6c-4dc6-aae4-12fb2d9cb2fb",
 CellID->1067943069],
Cell[11386, 303, 175, 2, 25, "Notes",ExpressionUUID->"f87c533f-8e15-40a2-843a-a8a07203413d",
 CellID->1429547519],
Cell[11564, 307, 2785, 55, 203, "3ColumnTableMod",ExpressionUUID->"8cee8c32-5224-4645-a2a7-0e83a23eb99c",
 CellID->960033616],
Cell[14352, 364, 650, 12, 57, "Notes",ExpressionUUID->"3b32e41d-6733-4204-9c19-6bbd56c6e9e4",
 CellID->828841396],
Cell[15005, 378, 1147, 26, 76, "Notes",ExpressionUUID->"1d87d0b7-97f3-4dbe-9b60-072405ba0a96",
 CellID->1991033282],
Cell[16155, 406, 3868, 95, 89, "2ColumnTableMod",ExpressionUUID->"c2f87add-bdb1-4439-a4d7-7937af600540",
 CellID->1567931395],
Cell[20026, 503, 605, 13, 43, "Notes",ExpressionUUID->"d8ed93ec-7963-4216-8c46-c196f8c67bdd",
 CellID->40081505],
Cell[20634, 518, 530, 9, 42, "Notes",ExpressionUUID->"c8074a93-4865-4ee6-8aac-3eca75147a82",
 CellID->1371443997],
Cell[21167, 529, 269, 6, 25, "Notes",ExpressionUUID->"6db918ef-8357-4b57-863f-ca8aaf5dacf9",
 CellID->692607812],
Cell[21439, 537, 6188, 118, 547, "2ColumnTableMod",ExpressionUUID->"73148cff-c9e8-494c-9d27-0f0c077ff672",
 CellID->1722440943],
Cell[27630, 657, 2673, 56, 121, "Notes",ExpressionUUID->"dab3dd8b-19c3-493f-aae8-cb52be652ab6",
 CellID->2062471477],
Cell[30306, 715, 1259, 23, 45, "Notes",ExpressionUUID->"dab3dd8b-19c3-493f-aae8-cb52be652ab6",
 CellID->1137892019],
Cell[31568, 740, 1453, 30, 105, "Notes",ExpressionUUID->"0556368c-b72a-4463-9b54-be9c8c941ce8",
 CellID->769093597],
Cell[33024, 772, 588, 16, 27, "Notes",ExpressionUUID->"995206c2-f897-44eb-a82e-95232137533e",
 CellID->1711199123]
}, Open  ]],
Cell[CellGroupData[{
Cell[33649, 793, 112, 1, 44, "TutorialsSection",ExpressionUUID->"760f9802-ab7f-4cb8-a986-0b9d1468870e",
 CellID->250839057],
Cell[33764, 796, 100, 1, 16, "Tutorials",ExpressionUUID->"9934c29f-a50c-447e-8ee1-26840516844e",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[33901, 802, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"f1e47be0-bd60-444e-97e2-c7df275d89fa",
 CellID->1268215905],
Cell[34042, 805, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"ff514593-81f8-45d0-9dbc-81e4afdc1089",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[34192, 811, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"bf083414-5454-4525-9177-d8031babb038",
 CellID->1584193535],
Cell[34315, 814, 104, 1, 16, "RelatedLinks",ExpressionUUID->"00c1be25-5068-4045-98b1-b3e3355eaf5e",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[34456, 820, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"1a2dbadc-138b-4b45-9240-dc7369854e0b",
 CellID->1255426704],
Cell[34569, 823, 2306, 55, 39, "SeeAlso",ExpressionUUID->"53faa64b-0760-4bcf-8854-88f11d30d4b7",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[36912, 883, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"021339ee-ef5c-464a-96e4-45a15c142fb8",
 CellID->38303248],
Cell[37027, 886, 101, 1, 16, "MoreAbout",ExpressionUUID->"61a5af04-9062-477e-a023-749313ca7624",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[37165, 892, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"a625cf4a-7d89-41cc-b6b1-5ecc26bf8b0e",
 CellID->880084151],
Cell[37579, 905, 234, 6, 22, "ExampleText",ExpressionUUID->"77229714-b754-4e96-b855-d2a46c6acc0e",
 CellID->287342914],
Cell[37816, 913, 683, 16, 50, "Input",ExpressionUUID->"fd4488de-6598-45e9-a4a8-68aa25a50722",
 CellID->1305886649],
Cell[38502, 931, 258, 3, 22, "ExampleText",ExpressionUUID->"faaf5517-d440-48db-be9e-ae73a6e7aa6b",
 CellID->26896797],
Cell[38763, 936, 458, 9, 26, "Input",ExpressionUUID->"66af59f3-72da-4588-b0f4-9ec830368b69",
 CellID->840223987],
Cell[CellGroupData[{
Cell[39246, 949, 311, 6, 29, "Input",ExpressionUUID->"fdea3f7c-12ab-4423-b680-474126771d7a",
 CellID->1049504644],
Cell[39560, 957, 2451, 58, 110, "Output",ExpressionUUID->"1f7c4465-9d3f-450d-b9ec-816dcbb046f4",
 CellID->1637712316]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42060, 1021, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"a86de21a-e765-4fb6-b77b-28217a824958",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[42240, 1027, 242, 5, 33, "ExampleSection",ExpressionUUID->"58ae8d16-dc65-4262-a54c-dfdee094847a",
 CellID->1293636265],
Cell[42485, 1034, 295, 4, 22, "ExampleText",ExpressionUUID->"df37d88c-fa65-4470-8d3b-aeb38ec82b40",
 CellID->164884109],
Cell[CellGroupData[{
Cell[42805, 1042, 2641, 56, 431, "Input",ExpressionUUID->"73b3ca70-b18d-478b-be47-fc7a4b764538",
 CellID->867968173],
Cell[45449, 1100, 2608, 59, 140, "Output",ExpressionUUID->"7c0062f6-3378-42c1-9b15-3dbe6293487a",
 CellID->525031159]
}, Open  ]],
Cell[48072, 1162, 530, 9, 37, "ExampleText",ExpressionUUID->"d103d73c-4ff2-40c0-98e6-74fe5e2b2a93",
 CellID->1901236413],
Cell[48605, 1173, 886, 19, 42, "ExampleText",ExpressionUUID->"f07037b2-91d8-4b4d-afcd-00f8807b3eb5",
 CellID->1811728991],
Cell[49494, 1194, 27291, 456, 252, "Input",ExpressionUUID->"a41b4962-0f4a-4d1d-826c-dedb2ed50a9c",
 CellID->11821617],
Cell[76788, 1652, 284, 5, 22, "ExampleText",ExpressionUUID->"9cb9f11c-e04e-485a-9495-f9fc99331e6e",
 CellID->19159134],
Cell[77075, 1659, 206, 3, 27, "Input",ExpressionUUID->"dba67cf3-6e58-4805-af9d-32423b2f395b",
 CellID->791445205],
Cell[77284, 1664, 46582, 769, 481, "Input",ExpressionUUID->"f3c367f3-b11e-4831-831b-8c378e2d5073",
 CellID->1364008706],
Cell[123869, 2435, 36756, 608, 451, "Input",ExpressionUUID->"81266876-97ce-4377-942d-67fb6ac035af",
 CellID->1662067199]
}, Open  ]],
Cell[160640, 3046, 265, 5, 33, "ExampleSection",ExpressionUUID->"6dae3fd0-057a-449d-8f77-1fdd9fff803c",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[160930, 3055, 244, 5, 21, "ExampleSection",ExpressionUUID->"b4fa260a-cd24-4b5f-a514-8ea2d504db9a",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[161199, 3064, 376, 7, 24, "ExampleSubsection",ExpressionUUID->"6609d1ff-a0b5-4516-a912-b43fd368d452",
 CellID->1757724783],
Cell[161578, 3073, 443, 8, 22, "ExampleText",ExpressionUUID->"ca907e0d-8c65-4adb-8592-3e5eef71734e",
 CellID->652368203],
Cell[CellGroupData[{
Cell[162046, 3085, 231, 4, 27, "Input",ExpressionUUID->"c17c1e57-3882-4580-baf4-70d1ad7e9ce9",
 CellID->868839754],
Cell[162280, 3091, 655, 10, 25, "Output",ExpressionUUID->"d0ca539c-6b63-4a61-b6ef-2b27aecc2248",
 CellID->917034497]
}, Open  ]],
Cell[162950, 3104, 376, 9, 38, "ExampleText",ExpressionUUID->"f0dd8ce9-1a17-4f7e-ba05-448d0c6e9a20",
 CellID->1059758639],
Cell[163329, 3115, 413, 10, 29, "Input",ExpressionUUID->"2e44871f-faf0-4f6b-b0e8-e74e84368ce0",
 CellID->1308774891],
Cell[163745, 3127, 270, 7, 22, "ExampleText",ExpressionUUID->"e181a77b-d0f8-482b-8af8-21158756e721",
 CellID->493738938],
Cell[164018, 3136, 740, 15, 50, "Input",ExpressionUUID->"2a156c61-b1f3-44e6-b15d-5d4996f2d315",
 CellID->729440482],
Cell[CellGroupData[{
Cell[164783, 3155, 636, 11, 87, "Input",ExpressionUUID->"9bc4f2f2-844d-4eb4-95cb-77298b959b63",
 CellID->1869523898],
Cell[165422, 3168, 2533, 59, 110, "Output",ExpressionUUID->"426b28c7-65a8-410b-ae37-6f569986d463",
 CellID->2076207223]
}, Open  ]],
Cell[167970, 3230, 479, 11, 25, "ExampleText",ExpressionUUID->"b607281c-5965-4ce2-be05-f69e9017d744",
 CellID->1566409905],
Cell[CellGroupData[{
Cell[168474, 3245, 349, 6, 27, "Input",ExpressionUUID->"232d60d9-05a1-4793-bb40-c9ba4de17d68",
 CellID->268858332],
Cell[168826, 3253, 376, 6, 25, "Output",ExpressionUUID->"bdd82b3b-32dd-4cb2-8369-22c74fad3355",
 CellID->1457218410]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[169251, 3265, 330, 6, 24, "ExampleSubsection",ExpressionUUID->"8af8d289-0291-45bb-ba06-eda6f586829d",
 CellID->289570966],
Cell[169584, 3273, 374, 9, 22, "ExampleText",ExpressionUUID->"e0da0c4a-a0e6-4cd3-932f-251d3821f222",
 CellID->696659447],
Cell[169961, 3284, 661, 14, 50, "Input",ExpressionUUID->"98466ddf-4c7b-4485-b4a3-ce3b0942a46c",
 CellID->302111784],
Cell[170625, 3300, 199, 2, 22, "ExampleText",ExpressionUUID->"2a8a1f3d-2046-473e-9cdd-62116dfa4521",
 CellID->801432288],
Cell[170827, 3304, 1268, 23, 129, "Input",ExpressionUUID->"77cf6886-905e-4128-b645-c941f39459a7",
 CellID->153910032]
}, Open  ]],
Cell[CellGroupData[{
Cell[172132, 3332, 335, 6, 24, "ExampleSubsection",ExpressionUUID->"06811ef8-6b55-49e6-8d61-cc0105cc4d69",
 CellID->1295379749],
Cell[172470, 3340, 593, 13, 50, "Input",ExpressionUUID->"88332e1d-09e1-48cc-bb1f-8e464ccb5452",
 CellID->1036321041],
Cell[173066, 3355, 214, 2, 22, "ExampleText",ExpressionUUID->"7ba10709-908c-482f-9707-5d47932be85b",
 CellID->2011554711],
Cell[CellGroupData[{
Cell[173305, 3361, 409, 7, 27, "Input",ExpressionUUID->"dcf4aafd-fe1a-415d-801b-a3fc4f570d7a",
 CellID->1664293238],
Cell[173717, 3370, 2406, 56, 110, "Output",ExpressionUUID->"4f48b128-95e7-4dc3-8180-409cd8b4d44d",
 CellID->1767627716]
}, Open  ]],
Cell[176138, 3429, 214, 3, 22, "ExampleText",ExpressionUUID->"b9ca2875-cdb7-453c-a038-f5e377ef8b95",
 CellID->1662673533],
Cell[CellGroupData[{
Cell[176377, 3436, 526, 10, 27, "Input",ExpressionUUID->"0292d84c-9647-49be-a02b-d9203e30dfbf",
 CellID->1174973214],
Cell[176906, 3448, 2432, 57, 110, "Output",ExpressionUUID->"dff8fd0e-db0f-425a-ae7c-3f9c59e68ad5",
 CellID->56913535]
}, Open  ]],
Cell[179353, 3508, 235, 3, 22, "ExampleText",ExpressionUUID->"0fab16ba-045c-4132-8776-2e88125e7ec3",
 CellID->2075270634]
}, Open  ]],
Cell[CellGroupData[{
Cell[179625, 3516, 370, 7, 24, "ExampleSubsection",ExpressionUUID->"32a60e95-7540-43cf-b3c6-657731c02f7c",
 CellID->134769657],
Cell[179998, 3525, 445, 11, 25, "ExampleText",ExpressionUUID->"f2058a9c-6318-4540-be1f-487072ab5fc0",
 CellID->1439120908],
Cell[CellGroupData[{
Cell[180468, 3540, 385, 7, 29, "Input",ExpressionUUID->"3260361b-3532-4539-9ead-42b1ac8fd008",
 CellID->862987509],
Cell[180856, 3549, 2362, 56, 110, "Output",ExpressionUUID->"8b3c796e-151a-44c2-8cc3-75b2468e70fe",
 CellID->1746571648]
}, Open  ]],
Cell[183233, 3608, 198, 2, 22, "ExampleText",ExpressionUUID->"fe3032e7-f415-4c99-9805-1c88f7c03678",
 CellID->379077258],
Cell[CellGroupData[{
Cell[183456, 3614, 491, 8, 29, "Input",ExpressionUUID->"b8d84cc2-2ec9-4910-879f-c58bbe0a2db5",
 CellID->779816477],
Cell[183950, 3624, 1417, 29, 88, "Output",ExpressionUUID->"e708877c-63b7-465d-97f8-b17d674a0d14",
 CellID->1819733943]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[185406, 3658, 248, 5, 33, "ExampleSection",ExpressionUUID->"8ff35ea9-fd64-4ed4-a78b-78470d23f01a",
 CellID->258228157],
Cell[185657, 3665, 259, 5, 21, "ExampleSection",ExpressionUUID->"704bddf4-36a8-4714-90c2-be75f21b9297",
 CellID->2123667759],
Cell[185919, 3672, 252, 5, 21, "ExampleSection",ExpressionUUID->"fcd82ca9-e84d-4563-b851-a87769468954",
 CellID->1305812373],
Cell[186174, 3679, 257, 5, 21, "ExampleSection",ExpressionUUID->"007cefa5-d329-4337-8a5a-b12081cb6994",
 CellID->1653164318],
Cell[186434, 3686, 249, 5, 21, "ExampleSection",ExpressionUUID->"31b3db5c-1f27-4435-aa41-8402c762c5eb",
 CellID->589267740],
Cell[CellGroupData[{
Cell[186708, 3695, 374, 8, 21, "ExampleSection",ExpressionUUID->"aac89469-3375-46df-948d-33356f799332",
 CellID->418123780],
Cell[187085, 3705, 5848, 117, 550, "Input",ExpressionUUID->"39266b0f-82d6-4d7e-b6f7-ce809101a7f1",
 InitializationCell->False,
 CellID->155589465],
Cell[192936, 3824, 32191, 614, 2826, "Input",ExpressionUUID->"fdcd7cf3-0999-47cf-b982-9d6616055e2a",
 InitializationCell->False,
 CellID->1504539856],
Cell[225130, 4440, 98674, 1921, 7638, "Input",ExpressionUUID->"a0b6d64b-6880-4633-a539-94ac306243d0",
 InitializationCell->False,
 CellID->181416367],
Cell[323807, 6363, 87944, 1726, 9566, "Input",ExpressionUUID->"f8454f89-89b1-46fa-b25d-02aa8975ff40",
 InitializationCell->False,
 CellID->737696194],
Cell[411754, 8091, 3993, 84, 494, "Input",ExpressionUUID->"9e9e304e-931a-4299-b34f-66de1a80f267",
 InitializationCell->False,
 CellID->1785585076]
}, Closed]]
}, Open  ]]
}
]
*)

